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ABSTRACT 


Recent studies of steady gas flow through porous 
media have shown that slippage and inertial effects can 
occur simultaneously and that, under certain conditions, 
both effects can be significant. .On the basis of these 
studies, four mechanistic models, three of them in in- 
tegrated form and one in differential form, have been for- 
mulated to describe steady isothermal radial gas flow. 

For these four mathematical models experimental 
data have been obtained for a wide range of rock per- 
meabilities, and a statistical analysis has been 
performed in order to ascertain their region of appli- 
cability and to make explicit the relative importance of 
the design parameters when dealing with different types 
of rocks. Specifically, the Bayesian procedure was 
applied in the area of model discrimination. 

A similar analysis has been done of the steady 
linear gas flow using three mechanistic models given in 
algebraic form. 

Theories describing transient gas flow through 
porous media have also shown that slippage and iner- 
tial effects are still significant even though flow 
were transient. However, the majority of this work has 
been done on linear systems,and systems which were only 


valid for viscous flow. 
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In this study, a theoretical investigation of 
transient flow has been carried out on a radial system 
exhibiting slippage and inertial effects. Specifically, 
a mathematical model has been developed which not only 
describes transient visco-inertial gas flow when slip- 
page is present, but also considers rock compressibility 
and takes into account changes of gas properties with 
pressure. Solutions have been obtained for the homo- 
geneous finite radial system in general and four sets 
of boundary conditions in particular. 

Results for steady flow are presented to show 
the importance of the slippage effect for tight reser- 
voirs and to make explicit the prediction of each model 
when subject to the absolute performance test. Tran- 
sient flow results indicate that under certain conditions 
slip, inertial and rock compressibility effects appre- 
Ciably influence both pressure and mass flux distri- 


butions. 
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INTRODUCTION 


Recent examinations of the physics of the steady 
flow of gases through porous media have indicated that 
not only can viscous, inertial and slippage effects be 
operative simultaneously, but that a single mathematical 
equation relating these three physical parameters can 
be used to describe such flow (30, 59). However, for 
steady radial gas flow, there still remains unknown 
the solution of the most general equation from which 
the other simplified models can be derived. This general 
model is represented by a first order non-linear ordinary 
differential equation, whose analytical solution does not 
appear possible. Moreover, in mathematical modelling 
programs a stage is often reached where the parameters, 
either empirical or theoretical constants, must be esti- 
mated from experimental observations. This is sometimes 
called a regression problem. In some cases where data 
are available, a regression analysis may indicate that 
the parameters cannot be precisely estimated from these 
data. Thus, the collection of further data may be 
required. In other cases, no data may have yet been 
collected. In both of these circumstances some form 
of experimental plan is necessary which will yield pre- 
cise estimates of the parameters (11, 45). 

On the other hand, theories describing transient 


linear gas flow through porous media have also shown 


wees. ony. eakeylg ads x0 a 
sadg beteokbnt eved Sibi one Hawehih car» fe 
ad ‘eeaerte epaqgile fos Letoaene \euodany cred vino 

fesitsomadaen ‘otpnie: * oat sud iefswonnadtinmts 2 oa 
deo exetemsteq’ tsoneyaa aise peant pinits 

xo? smewowolr +o (88 , Of) wet dowd odispe0t os Da | 
i, aor acu eniedier ‘Ehége overt wok? age, Getbst)'hel 
tt bat wert aolasupo Leiter saom ott ‘Xo wnt 


tipraniog. ake, sbovitab 9d 45D elebom bet? Ligne vaso | 

PRB EBTS, dwoati-non atobxo sass? 5 yd boy nosergnt af ts 

tome esob reitulos Seo ksytinan gerorw OLsedps Letsh 

anit febom Lao treitedssa az, stewart Adding a 

7 \ 218s 206 weg ell eneuw beuosey naste at peer & aeUswy 
Shes ad teva ssdaagese® fino ktoxoeds 10 Lsotriqms & 

‘gemissmo2 ak atin senokisvasedo Lsaqomixeqee mos? be | 

re ate execs naend ene al fie dog ‘gosesonpST 5 bot | 

“ded egapibad: en aieyions poiaeerpe: 5 seidpLiave te 

‘ peeds niet hedamises yieeivery ad- Joanso + sonswmnnag att | | 
ed eat so6b. reds 2o- HoiI99L.L00 ‘ods Teale SI6b 

“bed. soy ovad sm 628 oa .abeeo xailfo: ar tesa ieee a 

; ey ‘omoe eepnesenuoxis sears to tod. at badtdstcon / i 

We 91a piety. chin dabei ‘eevaatien et: meta, Te Stombysgee a 

oie | mc in) aradamétang, arts: to aoniaee oaks | 

: te oe8b abixeers sbasa wento odd a) 2's, e 

ie O¥a Gibom xyoxoy evords vol? esp -asoadl 


that the transient phenomenon is also affected by 
slippage and inertial effects (3, 18, 20). Neverthe- 
less, it appears that for transient radial flow no 
solutions are yet available considering the effect of 
the three physical parameters. The major difficulty 
arises from non-linearity of the partial differential 
equations which Beserine such flow, - In fact, second 
order non-linear partial differential equations often 
arise as a result of mass, energy, or momentum balances 
written for a differential volume where the flux 
entering or leaving the "control volume" is propor- 
tional to some potential or driving force. However, 
with the use of high speed computers and the development 
of efficient numerical methods, many unresolved problems 
can now be handled and more rigorous mathematical models 
can be developed. . 

One of the objectives of this investigation is 
first to solve the rigorous model for steady radial gas 
flow and then to perform a statistical analysis of the 
radial and linear gas flow. Experimental data were 
obtained for a wide range of rock permeabilities in 
order to ascertain the region of applicability of the 
various models, to determine their absolute performance, 
and to obtain more precise estimates of the parameters 


using the sequential design procedure. 
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A second objective of this work is the develop- 
ment of a mathematical model which will not only describe 
transient radial gas flow through porous media under 
conditions in which viscous, inertial, and slippage 
effects are simultaneously operative, but it will also 
take into account changes of gas properties with pressure 


and rock compressibility. 
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CHAPTER 1 


GENERAL BACKGROUND IN MODELLING 


iiik Theory in Model Building 


Physical and mathematical models are used mainly 
because the cost of testing different alternatives on the 
modéls are much less than the same tests on a full-sized 
system. 

The scientist seeks to discover the mechanism 
behind a particular phenomenon in which he is interested. 
He therefore formulates a hypothesis and tries to repro- 
duce the mechanism in a laboratory including the most 
important characteristics of the phenomenon. 

On the other hand, the engineer is most interested 
in the performance of a process, rather than in establish- 
ing the true mechanism. Obviously, this implies that the 
engineer might very well use different models for the 
same phenomenon, depending upon the performance criterion. 

Figure 1-1 shows a further classification of the 
physical and mathematical models (60). Briefly, the 
physical models are defined as follows: 

Iconic models closely resemblance the original, 
and as they grow in size and become more complex they 
merge into the real thing. Typical examples of this type 


of model are the pilot plants for oil secondary recovery. 
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Figure 1-1. Classification of Models 
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Analog models, unlike iconic models, may bear no 
resemblance to the original, but because they obey 
similar laws the performance of the original may be 
predicted from the behaviour of the analog. Examples 
of Phas type of model are the analog computer and the 


resistance capacitance reservoir analyzer. 


1.2 Mathematical Models to Describe Physical Phenomena 


As can be seen in Figure 1-1, mathematical models 
can be further classified into analytical models and 
Simulation models. The former are solved either exactly 
Or approximately, whereas the latter are nearly always 
Eun Onl a computer. 

Mathematical models involve systems in which there 
is a dependent variable related to a set of independent 
variables. For example, the experimenter might wish to 
study the change of pressure in a flow system as a func- 
tion of flow rate, time and temperature. Therefore, if 
the dependent variable is considered as y and the set 
of independent variables is represented by x= (X) Xor--X)i 


the mathematical model can be formulated as 


y = o(x, a) (1-1) 


where a= (aysayr+-a,)” are the q parameters de- 


fined as physical constants of the system under study. 
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Most of the time, however, only a mechanistically 
based mathematical representation is possible, since a 
mathematical model in terms of its exact mechanism is 
seldom obtainable. This approach via a mechanistic 
model is particularly useful in obtaining a meaningful 
extrapolation. 

On the other hand, mathematical models do not 
necessarily have to be mechanistic models. In fact, 
an empirical relationship might be entirely satisfactory 
depending upon the purpose of the investigation. For 
example, if the only purpose is to have a good predic- 
tion in a given region of interest, an empirical model 
can well be used, the only limitation being that it will 
provide little basis for extrapolation. 

From the foregoing, a mathematical model usually 
incorporates some, but not all the characteristics of 
the real system. Unfortunately, it is not always possi- 
ble to tell which characteristics are the most important. 

In many engineering problems, it is not always 
possible to find closed form solutions for the equation 
used to describe the mathematical model. Therefore, one 
has to resort to the application of numerical techniques. 
Moreover, when more realism is needed, simulation studies 
can be undertaken with the implication of a more detailed 


model on which the engineer performs his experiment with 
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the aid of a computer. These simulation models, however, 
may have the disadvantage of being very costly. 

Two primary requirements which a mathematical 
model must satisfy have been pointed out in the 
literature (60), 

a) "It must approximate reality with a reasonable 
degree of accuracy. The term reasonable must be 

judged in the context of what we want the model to do, 
in the light of the objective function which has been 
formulated." 

b) "It must be solvable on a practical basis, i.e. 
the benefits resulting from its solution must obviously 
be greater than the costs of the solution." 

Summarizing, mathematical models provide a simple 
way of describing a real system. Furthermore, with the 
advent of high speed computers, simulation models can 
be run in order to examine the effect of varying certain 
variables or parameters and test alternatives for a 
given project. This is particularly important in the 
area of petroleum reservoir simulation where it is 
necessary to use history matching in order to predict 


the future performance of the reservoir. 
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1.3 Criteria for Model Discrimination 


Quite often, it is desired to choose from one 
or more physical mechanisms, the model which more 
closely represents the true phenomenon. For this 
achievement, several criteria have been described in 
the literature (10, 37, 69). Some of them were applied 
to empirical models commonly expressed as polynomials 
in the independent variables and linear in the para- 
meters. Mechanistic models, however, are somewhat more 
complicated mathematically and are usually non-linear 
in both the dependent variable and the parameters. 

The earliest criterion used for model performance 
is the minimum sum of the squares of the errors which 
finds its justification in the maximum likelihood criterion. 
In fact, if the errors are considered to be normally 
distributed, the least squares estimates are also the 
maximum likelihood estimates. 

Another approach is based on the expected decrease 
in.entropy., (10).,4.and.is. actually -aameasure;of the 
randomness in a given situation. This criterion gives 
a zero value for entropy when one model is certainly 
the correct one and a maximum for entropy when all models 


have equal probability. 
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Recent studies, however, have shown that a 
better criterion may be considered to be the Bayesian 
expected likelihood procedure (69). This criterion 
is essentially based on a Bayesian interpretation of 
probability and it will be used in this work. 

In general, let us consider that the true model, 
in differential or algebraic form, is a member of the 


following metamodel which comprises k models: 


Yaa o Cp isey re (1-2) 


where x is the set of independent variables, a, isthe 
vector of design parameters for the ane model, and y 
is the state variable. 

The problem of model uncertainty can be handled 
by assigning probabilities to the models. Let Pe be 


h 


the probability that the gt modeleais correctsotherefore, 


according to the axioms of probability we can write: 


Oe ape. al 
(1-3) 
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The main characteristic of the Bayesian approach 
lies-in the fact that values assigned to the pets are 
subjective probabilities and not objective probabilities 
as in classical statistics. These prior probabilities 
will be modified in the light of experimental evidence, 
to obtain the posterior probability of each model accord- 


ing to Bayes' theorem given by the following expression: 


{ p. L(y/o.) 
p" = * OAS I i Be ae (1a) 


g Kk. 
as py Lly/¢,) 


where the single prime represents prior probabilities 
(before observing the data), and the double prime repre- 
sents posterior probabilities (after observing the data). 
The term a, stands for the likelihood Pres desig- 
nates the probability of observing the data given that 
the model %4 TS. eLue. 

When no information is available about the bena- 
viour of the models, it is common to consider the prior 
probabilities all equal. Similarly, in the absence of 
information about the parameters, their values can be 
considered to be uniformly distributed over the range 
-»e to t+», that is, an improper uniform distribution may 


be assumed. 
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Moreover, it should be pointed out that the model 
? involves a set of parameters which are uncertain and 
therefore can be considered as random variables in 
the Bayesian sense. Consequently, Doe) in Equation 
(1-4) should be considered as the unconditional likeli- 


hood calculated by means of the following expression: 


= : 1-5 
L(y/bg)= | Lv/egr ag) flag) da, (1-5) 


a 


This equation requires a definition of the joint 
parameter density function edi In this regard, some 
investigators have used the prior parameter density, 
f'(a,). However, Singh (69) has shown that the dis- 
crimination procedure is less sensitive to the uncer- 
tainty in the parameter.distribution, if the posterior 
rather than the prior parameter distribution is used in 
Equation (1-5). Consequently, the posterior density 
will be used for calculating the expected likelihood. 

Applying Bayes' theorem, the posterior parameter 


density is obtained using the expression: 


- (a jL(y/a_) fi 6) 
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If the models are linear in the parameters and 
provided the posterior parameter distribution is multi- 
variate normal, the calculations to determine the pos- 
terior probability of each model are releatively simple. 

When dealing with non-linear models the problem 
is a little more involved. However, if the prior joint. 
parameter distribution is assumed to be improper uniform, 
the posterior probabilities may be calculated in the 


following manner (60). 


For the sie model with q parameters, let 
= p44 Le Dass i 1-7 
a ae Se ae i-i hee n data points ( ) 
?. iy 
S = - - (1-8) 
Bg ely te 
Ss = min S< ; minimum sum of the squares of the errors 
a 
we (1-9) 
a= parameter vector which minimizes Ss (B= 3120") 
= 1X5 543 i=bpects jol,..-di, uxq design matrix 
3.0 (528, ae) 
nao Reis a a a a (1-11) 
1jk JAsy ” 
J a_=a 
cae’ 
Te ne X , a symmetric and positive definite 
“J > 


matrix (q x q) (1-12) 
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a2 
S 
oO = ee , the unbiased estimate of error variance 
(1-13) 
Criss o? eae the variance-covariance matrix of 
=o Jong 
the parameters (q x q) (1-14) 


The diagonal elements of oe represent the variance of 
the corresponding parameters. If the elements of this 
variance-covariance matrix are normalized in such a 
way that the diagonal elements are unity, we obtain the 
correlation matrix R whose elements are defined as 
hap ate 
Swan fc... 
cil aa 
As has been previously mentioned, when an improper 
uniform prior distribution of the parameters is assumed, 


the posterior distribution is the multivariate normal 


given by 
wW q A x -q/2 -l; 
fo ve =r (a-/a 7c = (27 € 
(2g) n8g/8grSg) = (2m) ICI 
eh es A 
xexpiz Flag- al) eo la Ay} (lens) 


This equation is the required expression for use in 


Equation (1-5) in order to calculate the expected or 
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unconditional likelihood. 

One of the limitations of the Bayesian discrimi- 
nation procedure is the large amount of computation 
needed to evaluate the unconditional likelihood. 

Singh (69) has een that only the sufficient statis- 
tics of the data is needed to evaluate the term 
Be) Og! in Equation (1-5). The required expression 


reads as follows: 


De ac 1 gq/2 
L(y/¢5) = (2109) exp|- a x (5) : G16) 
O 


Once the expected likelihood for all the models 
is obtained, the posterior probabilities of each model 
can be calculated using Equation (1-4). 

It should also be mentioned that the posterior 
probability of success for a model by no means implies 
that the model is an adequate one, since it only 
gives a relative capability of the model to describe 


the phenomenon, and any model can have the highest 
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probability of success if the other models are even 
poorer. Consequently, the absolute performance of a 
model might be determined using the following criteria: 
a) The; actual errors or residuals ‘should be un-— 
correlated over the entire region of investigation; any 
correlation with the independent variable would imply 
systematic model errors. 

b) The error variance and the values of the design 
parameters should not change drastically when different 
sets of data are used or when additional data are 
incorporated. The existence of large differences in 
the values for the error variance and in the parameters 
would indicate large modelling errors and inadequacy of 


the model. 
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CHAPTER s2 


MATHEMATICAL MODELLING OF STEADY GAS FLOW 


2.1 Literature Review and Theory 


The phenomenon of gas flow through porous media 
has been a subject of investigation for quite some time. 
NuUMerOUS investigators (28, 30, 3, 52, 53, 59, 71) have 
carried out experiments to verify the validity of Darcy's 
equation, the majority of this work being on linear sys- 
tems. 

In the process of this development, it was 
realized that two distinct phenomena which were pre- 
viously neglected;significantly affected the physics 
of isothermal gas flow through porous media. These were 
slippage and inertial effects. In fact, in 1941 
Klinkenberg (52) observed that air permeabilities are 
higher than liquid permeabilities in the same porous 
medium as calculated from Darcy's law. Indeed, this is 
an indication that Darcy's law is not valid for gases. 
As far as a characterization of the point when Darcy's 
law becomes no longer valid for gas flow is concerned, 
Calhoun and Yuster (14) summarized the facts by stating 
that Darcy's equation breaks down if the pore diameters 
become comparable with, or less than, the Mean 


free path of the gas molecules. One can again 


17 


- “ae eb ‘ae pot tet er, aks 30 yckotam one 


a ee iss ‘ER attoaet foz? betelvoisS as minal 


» Segoe Ht ety ats th vo aaeerzd. ho baeupe a ‘pan saa | 


sean 


“4, 


+ oe wh ssi 6 sa vp 


siden showon opus bogs a ame to’ ‘newmaccin, ot 
. atts cok eitivn To? veadaigianrund Ie donk & ‘noo s = 


eyo 2 p ipdison aaa gles, o¢ cctiantasiil to A; a 


26w a sonal waa te easoo79 odd al . 
) atte “i9atgeth ows tedd ‘bed 


‘ oe ote fla lidw. , a 
abiegitg ofich pesesiie “lage iAdnpie ibog295v05 \kaam 

ein ape .subem aura theeresdet wot? ese tearcodadek § 
| | EOL ek ythee at s@goaRTe Meiizead bas oveqa 
ete ; ami tede sag, the oad fisvrend (<#)- presage i 
eux ea ‘gee. nh ‘awk A bdeamreq biupil asitt sonnet 


sama 8% Betsy ton Bk: weil, - oO kHO dana néideotbabene | 
_ ehysixad soe snipy ute 2 inka: is gtexs do: 6 25 762: BA q 
_ besctbonntoe: an wold wee ¥o2 bites Bepaol on Ramoded wel | 
wees ud week: hg 98 Linnea. (el) nadaoy be nvcttn® | 


a teem ani piel one. In dae eldetaqmoo daoeet 
| BEERS ake ee ig <apivoston, ene. eds to ings east 
Py i 


P | =. én: te moh, ee OS, See m7 ; 
Prin) i ae 


or ii 


18 


observe an analogy between this breakdown of Hagen- 
Potseuille*s law-inGeapiilaries "ive? if the’radius of 
the capillary is made smaller and smaller, the origi- 
nally viscous flow of the gas undergoes a transition 
to slip flow and thence to molecular streaming what 
is called Knudsen flow. 

On the other hand, a number of investigators 
(30, 33, 36, 39) have agreed that there exist a certain 
"seepage" velocity, above which Darcy's law would no 
longer be valid. It is well known that, even in tubes, 
the dependence of the pressure drop on flow velocity 
becomes non-linear as soon as the inertia terms in tne 
Navier-Stokes equations become important. This occurs 
in curved tubes long before the onset of turbulence. 
Since the curvature of the channels is being neglected 
in hydraulic radius theories, the possible non-linearity 
in laminar flow is completely overlooked. Attempts to 
give a universal characterization of the certain seepage 
velocity by introducing a Reynolds number have failed 
because the critical Reynolds number was found to vary 
erratically within a factor 750 for various porous media 
and fluids (68), 4p. 159° Even at that, the critical Reynolds 
number would be at least about 25 times smaller than 
would be expected if a porous medium were equivalent to an 
assemblance of straight tubes because of the different types 


‘ . 
of restrictions encountered in the flow system. Therefore, 
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the breakdown of Darcy's law at high flow velocities is 
probably primarily due not to the onset of turbulence, 
but rather to the emergence of inertial effects in 
laminar flow. 

Consequently the theory of strictly viscous 
flow through homogeneous porous media is based on the 
experiment performed by Darcy (21) in 1856. MHubbert 
(43) quotes Henry Darcy to have experimentally established 
that the downward flow of water through sand filters was 
governed by the following expression 

(P5- P;) 


(0) tS i (2=1) 


which subsequently was called Darcy's law. In Equation 
(2-1) Q is the total volume of fluid percolating in unit 
time, C is a constant depending on the properties of the 
fluid and of the porous medium, H is the height of the 
filter bed, and P5- P; is the difference in readings of 
open manometer tubes separated a distance H. Implicit 
generalizations of the observations give the following 
equation: 
* * 

Q=- “a (2k (2-2) 
where k is the absolute permeability of the porous medium, 
u is the viscosity of the incompressible fluid, and A is 


the cross section area. 
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Since p* represents a potential given by ptogz at 
any point, Equation (2-2) can be written in terms of 


pressure to yield 


KA 
Q=- WH (Apo P,,gAz) (2-3) 


where 


AP = Po- Py 


g = gravity acceleration 
P,= liquid density 
Az= Zi- Zo (= H) . 


Therefore, if we consider linear horizontal flow, i.e. 


g = 0, Darcy's law, in differential form, is given by 
= 7" gis rO-ie-G (2-4) 


where q is the seepage or superficial velocity, anda is 
the viscous resistance coefficient equal to the recipro- 
cal of permeability. Hubbert (43) has shown the theore- 
tical soundness of this experimental proposition by deriv- 
ing it from the fundamental Navier-Stokes equation. 

As pointed out before, Klinkenberg (52) in a study 
especially dedicated to the flow of gas through some 
porous. media which were considered as a bundle of capilla- 
ries, one third of each was oriented in each of the coor- 
dinate directions, developed a dependence of the permea-— 


bility upon the mean pressure. The relationship is given 


by 
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kK = k({l1 + ) (2-5) 


where Pavg is the mean of the inlet and outlet pressures, 
b is a lumped constant defined as the slippage coeffi- 
cient. It is a characteristic of the porous medium and 
the particular flowing gas. 

Later on, it was stated (28, 30) that the assump- 
tion made when considering Pavg notva,. function .of ep. to 
integrate Darcy's equation might be questionable and it 


was suggested to use the apparent permeability defined 


as 


‘ b 2 
kisae fodL eps hain (2-5a) 


On the other hand, to take care of the deviations of 
Darcy's law observed when the flow rate was continuously 
increased, Forchheimer (36) suggested a modification of 


Darcy's law and proposed an equation of the form 


=Aqt+bB q? (2-6) 


oad 
dx 
where A and B are consideredto be constants. This model 
was obtained on the basis of empirical reasoning and 
curve fitting technique applied to various experimental 
data then available. 

Chwyl (18) adopting an approach similar to that 
of Hubbert (43) derived Forchheimer's equation from the 
fundamental Navier-Stokes equation, thereby giving to 


Equation (2-6) a sound theoretical basis. 
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Purtner investigation (7) 33,38, 39, 71) con- 
firmed the validity of the following expression for 
determining pressure gradient for both low and high 


speed horizontal linear flow through porous media, 


da 
- x = auq + Bog|q| (2-7) 


where 8 is defined as the inertial resistance coefficient. 
Equation (2-7) can be written in terms of the mass 
velocity per unit area w/A = pq, because the mass velo- 
city remains constant in steady-state flow even though 
the gas may be expanding. Accordingly, Equation (2-7) 
after using the modified gas law and assuming average 
constant value of the compressibility factor and visco- 


sity, can be integrated as (53) 


2 2 
SE See 3 (2-8) 
*Uavg 4 avg Tavg L w/A k A Havg 


The rigorous mathematical model for linear steady 
gas flow where slippage is also included, is stated in 
SECERON 72 «3'. 

Tek (74) derived a generalized Darcy equation in 
the form of friction factor - Reynolds number correlation, 
to obtain 


(2-9) 
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where Le is a "“lithology factor" representing the 
particular porous medium, and 65 is the mean particle 
diameter. Comparing Equation (2-7) with Equation (2-9) 


we can infer that 


Blick (7) working on a capillary orifice model 
for high speed flow through porous media and applying 
momentum theory to a control volume, obtained for hori- 
zontal isothermal gas flow the following expression for 


the pressure gradient: 
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Nope Reynolds number 

6 = Average pore diameter 
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Equation (2-10) suggests the following: 


aca 
DGB 

For steady radial flow, Tek (71) integrated 
Forchheimer equation under the assumption of constant 
gas properties and no slippage to obtain the following 


radial gas flow equation with field units, 
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Piplapure (59) generalized the above equation by 
considering slippage in the development of the model. 


He obtained the following equation: 
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The above equation contains the extra term 
2b (p.- P,,) as compared with Tek's equation. However, 
Equation (2-12) represents a simplified model describ- 
ing steady radial gas flow. The rigorous mathematical 


model is stated in the following section. 


2.2 Statement of the Mechanistic Models for Steady 
Radial Gas Flow 


It has been shown in the previous section, that 
steady radial horizontal gas flow under the conditions 


of no slippage, can be described by the following equation: 


d 
- = oe + 6p qla} .. (2-13) 


The above equation considers the absolute value of q so 
that it can be used either for injection (q is positive) 
or’ for production (q is negative). Therefore, if the 
problem is restricted to production, Equation (2-13) can 


be written as 


apie] a a 
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which implies q being a positive quantity. 
‘The following models are formulated using field 


units. 


Model 1 
If in Equation (2-13) inertial effects are neglected 
and correction for slippage is made using Equation (2-5a), 


the integration gives the following two-parameter model: 
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the design parameters being k and b. 


Model 2 

If slippage effects are negligible, the integra- 
tion of Equation (2-14) after using the modified gas 
law, yields the following two-parameter model as given 


by Tek etal. (71) 
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the design parameters being k and 8. 


Model 3 


If both slippage and inertial effects are consi- 


dered simultaneously, Equation (2-14) becomes 
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and Par Tor oR refer to standard conditions. 
In order to integrate Equation (2-17), Piplapure (59) 
assumed the term b/p sufficiently small in the numerator 


to obtain the following simplified model: 
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The approximate Eq. (2-20) is now separable and the inte- 


gration gives: 
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The above equation represents a simplified model 


with design parameters k, b, and 8. 


Model 4 


The fourth mathematical model is given by the 
non-linear ordinary differential equation stated as Equation 


(2-17). Using field units, the equation can be written as 
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Equation (2-22) is a non-linear ordinary differential equation 
not only in the dependent variable DUE also. in. the para- 
meters k, b, and 8. It represents the rigorous equation 
for steady radial gas flow for which no analytical solution 
appears possible. 

The field units used in the above mathematical 


models are defined as follows: 
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2.3 Statement of the Mechanistic Models for Linear Flow 


When taking the experimental data for the radial 
flow, the core sample was only confined in the vertical 
direction. Hence, it was thought there might be a 
possibility that some of the results obtained for the 
steady radial gas flow might have been affected by dis- 
TOLE1On of the rockwinethe. radial _ direction. 

Therefore, in order to be more confident of the 
analysis done for the radial case, a complementary 
analysis was performed of the steady linear gas flow. 

in this case the core sample was properly confined 
in both directions and the possibility of rock distortion 
was eliminated. 

The Forchheimer equation for linear gas flow, 
after including slippage and using the modified gas law, 


can be formulated as (53) 


R w/A 832 T R(w/A) * 


rape Havg Tavg “av + avg avg (0226) 
eLscenr Mk (p + b) 9, Mp 


On the basis of the above equation the following mechan- 


istic models given in consistent units were analyzed. 


Model NS 


When slippage is the only effect considered, i.e. 


8 = 0, the following two-parameter model can be derived 


from Equation (2-26) 
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a 2 A*R/ML Wy 0.5 
= - . a SE EES NS = 
P= [Pp - 2b(p.- Py) + re ] (2-27) 


with design parameters k and b. 


Model B 
If inertial effect is considered and slippage is 
neglected, i.e. b= 0, Equation (2-26) yields the following 


two-parameter model 
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the design parameters being k and 8. 


Model C 
The integration of Equation (2-26) yields the follow- 


ing expression (53) 
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Equation (2-29) represents the rigorous mathematical model 
for the linear case. The parameter estimation and 
statistical analysis was performed after solving Equation 
(2-29) for the external pressure, Po: Hence, the follow- 
ing predictive model was obtained: 
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the design parameters being now k, b, and 8. 


Model D 

A fourth mathematical model is given by Equation (2-26). 
This model is the same rigorous model but expressed in 
differential form, and it was considered in order to 
determine the accuracy of the technique for parameter 
estimation of non-linear ordinary differential equations. 
This is possible because the analytical solution is known 


and given by Equation (2-30). 
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CHAPTER 3 


STATISTICAL ANALYSIS OF THE STEADY GAS FLOW 


Sr Experimental Work and Techniques Used to Perform 
the Analysis 


Parameter Stee. and model discrimination 
based on the mathematical models described in the 
previous chapter,were performed using experimental 
data obtained from four limestone core samples for the 
radial flow case and six sandstone core samples for the 
linear flow case. 

The following table shows the characteristics 


of the core samples used for steady radial flow: 


Table nat 


Core Samples Used for Steady Radial Gas Flow 


Core sample Outer radius Inner radius Thickness Porosity 
No. (ft) (fe) (ft) 


1 0.49990 0.00540 OF 07500 0.23210 
2 0.49100 002125 0207933. 0.10950 
dba 0.48835 0.08587 O.12575. 0514450 
ae 0.48869 OFOS551 0.12133 0.13470 
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Procedure detail for conducting flow tests 
using a radial gas flow cell is outlined in Reference 
(59). Only slight modifications were necessary in 
order to obtain more accurate readings for the inlet 
and outlet pressures, when data for the six runs were 
taken using core sample No, 1. Data for core samples 
NOwre, wil; and 12 were obtained from the literature 
oes 

Prior to flow tests, the porosity of core sample 
No. 1 was determined using a Boyle's law porosimeter. 
The flow tests were conducted in the following manner: 
a) “The confining pressure was increased with each 
flow rate increase so that the difference between the 
confining pressure and the arithmetic mean flowing 
pressure (net confining pressure) was held constant at 
some preselected value, i.e. 600 psig. This confine- 
ment was only done in the vertical direction, since 
total confinement was impossible because of the design 
o£, the flow cell. 

b) Flow rate was changed by raising the upstream 
pressure while holding the downstream at atmospheric 
pressure. 

c) Flow rate was changed by raising the upstream 
pressure while holding the downstrean pressure <et a 


preselected value. 
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The following mean flowing pressures and flow 


rate ranges were used in the flow tests for radial 


flow. 


Table 3-2 


Runs Performed on Core Samples for the Radial Gas Flow 


Core Number 
Sample Run of Data 
No. No. Points 
ib ci 15 
di 2 a5 
ag 3 23 
rz 4 30 
A; 5 14 
ul 6 18 
2 1 14 
d te rt 16 
112 1 aN 


Mean Pressure 
Range, psia 
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For the linear flow, experimental data were obtained 


from Reference (29). 


Sis are given in the following table. 


The core samples used for the analy- 
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Table 3-3 


Core Samples Used for the Steady Linear Gas Flow 


a) 


ES 


Run 
No 


7 


ace 


18 


Length 
(cm) 


7 SS 


7.2704 


6.8636 


Tie elh 


PiMl. Zs? 


CURSE EL!) 


Diameter 


(cm) 
PAS 203 
Zeoe2d 
2.5203 
21.5078 
Hig Ode 


200210 


Sleeve Pressure 


(psig) 
4100.0 
3935.0 

450.0 
3900.0 
4337.0 


428.0 


Experimental data for the linear flow comprised 


ten data points for each run and, unlike the radial 


case, the rock samples were totally confined. ‘This 


analysis was performed in order to avoid any suspicion 


of rock distortion effect on the analysis of radial 


flow. 


that of radial gas flow. 


Flow tests were conducted in a way similar to 


Estimation of the parameters for the algebraic 


forms was performed using Marquardt's algorithm for 


non-linear parameter estimation (55). 
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A computer program 


was developed using this algorithm and a copy is given 


in Appendix A. 


Parameter estimation for the differential 
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model was carried out applying a quasilinearization 
technique with data perturbation (24). The program 
given by Donnelly (23) was slightly modified so that 
it could be fitted to solve the first order non- 
linear ordinary differential equations stated in 
Chapter 2. An extension of the program was done so 
as to calculate the reliability of the parameters and 
the expected likelihood of the model. A summary of 
the algorithm and a copy of the computer program are 
given in Appendix B. 

The model discrimination was carried out apply- 


ing the Bayesian procedure as discussed in Chapter l. 


Sy) Analysis of =the Steady Radial Flow 


In doing this analysis, six different runs were 
performed using core sample No. 1. The main objectives 
of these runs are summarized as follows: 

a) To test the absolute performance of each model, 

b) To use the sequential design procedure in order 

to obtain the best estimates of the parameters, and 

c) To find regions of maximum discrimination among 
the rival models by calculating the posterior probability 
of each model. | 

The relevant expressions necessary for parameter 


estimation, together with input data and results obtained 
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from each model are given in Appendix C. From these 
results, the reliability of the parameters and the 
posterior probability of each model were calculated. 
The following tables show values of the least 
square parameters with their 95 % confidence limit, 
and the posterior probability of each model, for the 


six runs corresponding to core sample No. l. 


Table 3-4 
Reliability of the Parameters and Posterior Probability 
of Each Model 
Core Sample .No. 1 -,.Run.1 


k 


permeability, millidarcies (md.) 


b = slippage coefficient, psia. 


fiet@onertial cockricient its in 10-- 
Model Parameters and o7 <> om 
oa 95 % confidence (psia*) - = 
I k= 6.99740.190 0.037 0.194x10% 0.000 
b= 9. 76841.071 
2 k=10.468+0.097 0.021 0.089x102 0.000 
Be 073720. 526 
3 k= 6266610.475 0.005 0.299x108 0.201 
be 4007721312 
B= 0.446+0.100 
4 k=. 8. 75620.496 0.004 Heirexio + 100799 


b= 3.993+1.350 
B= 0.408+0.106 
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Table 3-5 


Reliability of the Parameters and Posterior Probability 


of Each Model 


Core Sample No. 1,=-. Run, 2 


Model Parameters and °° <L> p™ 

- 95 % confidence (psia*) - ~ 

:. k=5.77240.257 0.493 0.274x107" 0.000 
J OFS HSA) Shan A) 5 1830) 22 

2 K= OR OMe One als 0.081 0.822x10 2 0.000 
B= 0,545:0, 1.48 

3 je £8) XS Sya8(0) 72 le! (0) OM O}S) 0.314x108 Oy, IS! 
Dee. DOO tO. ol - 
Ba (0) AO S80) 5S! 

4 k= 64 oO One Ou! 0.004 0.173x10? 0.846 


b=. 5.03840.750 


B= 0.3821+0.024 
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Reliability of the Parameters and Posterior Probability 


of Each Model 


Core Sample No. 


Model Parameters and 


- 95 %@ confidence 
1 k= 5,.0713120.225 
b=26.5931+3.661 
2 k= 9.5932£0.-125 
Bs 0.44320.071 
2 k= 7.68340.236 
b= 7. 886+£1,.179 
B= 0.33420.019 
4 ke 7.90240 .289 
b= 7.2882£1.084 


0.31820 ,019 


1 - Run 3 
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Reliability of the Parameters and Posterior Probability 


of Each Model 


Core Sample No. 


Model Parameters and 


- 95 % confidence 


i k= 4.27340.251 


b=40.2661+6.464 


2 k= 9.29740.110 


B= 0.39720.028 


3 k= 7.65720.237 
b= 8.100+1.365 


B= 0.33840.012 


4 k= 7.868+0.209 
b= 7.59011.284 


B= 0.31640.013 
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Reliability of the Parameters and Posterior Probability 


Model 


of Each Model 


Core Sample No. 


Parameters and 


95 % confidence 


k= 2.468+0.104 


b=166.4124+12.005 


K= -6:.3:7620 2211 


B= 0.30640.031 


k= 3.68320.,233 
b=61.13528.999 


B= 0.1644+0.017 


k= 4.724+40.278 
b=56.829+7.326 


B= 0.148+0.016 
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2 
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Reliability of the Parameters and Posterior Probability 


of Each Model 


Core Sample No. 


Model Parameters and 


- 95 % confidence 


1 k= 2.990205222 


b=102 .696+15.174 


2 k= 8.706+0.177 


B= 0.33440.026 


3 k= 5.983+0.540 
b=25.462+7.208 


B= 0.26440.023 


4 R= 6.559220 506 
b=20.696+6.107 


B= 0.24510.025 


1 - Run 6 


1.440 
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De2 38 


0.139107 7 


0.412x107 22 


0.213x107° 


0.615x107* 


0.000 


0.000 


0.003 


Oa of 


A’summary of the posterior probabilities obtained 


from the above analysis using core sample No. 1 is given 


in the following table. 
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Table 3-10 


Values of Posterior Probability when Discriminating among 


the Four Models for Radial Flow 


Core Sample No. l 


Number of Run Mechanistic Models 
Observations No. Bh 2 3 4 
0 - 0.250 O 250 0.250 On2 50 
dS 1 0.000 0.000 0g 201 02799 
15 2 0.000 0.000 0.154 0.846 
23 3 0.000 0.000 0.050 OR OU 
30 4 0.000 0.000 O39 7 0.603 
14 5 0.000 0.000 0.000 1.000 
18 6 0.000 0.000 0.003 O70 97, 


In order to ascertain the relative importance of 
the physical parameters when dealing with different types 
of rocks, three more core samples were analyzed with 
permeability ranging from 0.5 to 12.0 millidarcies. 

The tables below show the least square parameters 
and the posterior probability of each model using the 


other three core samples. 
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Table 3-11 


Reliability of the Parameters and Posterior Probability 
of Eacn Model 
Core Sample No. 2 
Bo; an 107° 
Model Parameters and O <L> p 


- 95 % confidence (psia*) - = 


bs k=0.666+0.008 O29'6 Gretel 100" 0.000 


b=8.962+0.978 


2 k=0.812+0.019 1.405 0.300x10-” 0.000 
8B=0.136+0.199 

) k=0.706+0.009 0.030 ih creel Omen 
b=6.58040.560 
8=0.051+0.010 

4 k=0.7082+0.009 02 020 0.838x10? Or B.D 


b=6 .507+0.590 


B=0.049+0.009 
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Table 3-12 


Reliability of the Parameters and Posterior Probability 


of Ea 


ch Model 


Core Sample No. lll 


Ps 


Model Parameters and 


~ 95 % confidence 


i k= 2.44440.047 


b=18.4111+1.886 


2 k= 3.4514+0.106 


B= 0.156+0.270 


2.737+0.044 


WwW 
nw 
II 


b=12.219+0.914 


B= 0.640+0.082 


4 k= 2.757+0.049 
b=11.986+1.019 


B= 0.60720.083 
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oO 


(psia*) 


02958 


2.608 


02052 


0.042 


<L> (ome 
ee at 
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0.590x10 0.190 
0.B52%2070" 0.810 
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Reliability of the Parameters and Posterior Probability 


Model 


Ses Analysis of the Steady Linear Flow 


This analysis was performed using six core samples 


of Each Model 


Core Sample No. 


Boss 


Farameters and 


ce) 


95 % confidence 


k= 8.372+0.548 


b=17.591+4.189 


k=14.552+40.423 


B= 0.711+0.085 


k=11.722+0.649 
b= 6.22941.704 


B= 0.510+0.067 


k=12.015+0.694 
b= 5.686+1.806 


B= 0.48940.074 


0.000 


0.360 


0.640 


with permeability values ranging from 0.04 to 288.00 


millidarcies. 
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The necessary expressions for parameter estima- 
tion, input data, and results obtained from each model 
are given in Appendix D. From these results, the 95 % 
confidence limit of the parameters and the posterior 
probability of each model were calculated. 

The following tables show the reliability of the 
least square parameters, the expected likelihood and the 
posterior probability of each model;s-for all the core 


samples considered in this analysis. 


Table 3-14 
Reliability of the Parameters and Posterior Probability 
of Each Model 


Core Sample No. 9 


a ace era k fig 
Model Parameters and o7 <L> Dp" 

- 95 % confidence (psia’) - = 

A k= 0.042+0.0003 0.415 0.198107 74 0.010 
b=28239041 3512 

B k= 0.054+0.0020 19.410 0.906x10 >" 0.000 
B= 0.722+0.2690 

C k= 0.041+0.0009 0.193 0.157x107°2 0.990 


b=31,55822 29292 


B=-0.09040.0722 
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Reliability of the Parameters and Posterior Probability 


B= 


of Each Model 


Core Sample No. 5 


0.20220 2.06835 


° 
f 


B 
Model Parameters and 
- 95 % confidence 
A k=.,0'2 524207013 
b=16.078:3.448 
B Kk=20.64520.,023 
B=_.0.658¢0.188 
G Very 10) ye 7/ee(0) 0) al 7 
b= .9.919+2.403 
B= 0.31940.093 
D i (OSs Ol ssO) a als) | 
b=L0 ee 4at2 260 


in 102+ 


2 
oO 


(psia*) 


>. 198 


8.031 


0.604 


05639 


0.6 71x10 


0.681x10_ 


0.455x10- 


0.379x10. 


31 


OZ. 


26 


26 


0.000 


1.000 


ya : iigesenes igytetaot bag saat ttt 30 


‘cite Ae ; 
AY igh i 7 


r i 
Aint Le yy 


Te per Vili 
oF OL KER DLO. : SOILS £45 0ride lo <4 


BGh £1870, 0L ed 


~" Gf apie , LEG. Bi - EER 2Eb 9. 6 =A 
=) ; Wo & pe , 
‘ #ef. Veheo 2 0 we] 
ay : ‘ 
QLXOSh re >0B; Ds ' = PERO WRT SO ' ie 
7 “ete, SEGLe. 2. ag 
Fees: REE, 0° mB 
= vs re a 
_ a ene 
os : : : . 
OrKerL Btyeo. - ero. 4 RTE x0! weg 
a . re { 7 rT 
: 7 WS ae ee 828 Sd LO 
, " i. © Bor i 
es COG Vela 0 oe), 
} ¥ 7 t “4h i Sati : 
7 7 - 
na 
? : - 
‘ “ ic 
. a iia ' 


Table 3-16 


49 


Reliability of the Parameters and Posterior Probability 


Model 


of Each Model 


Core ‘Sample No. ll 


B 


Parameters and 


95.8 confidence 


k=8.040+0.072 


b=4.032+0.469 


K=97 7020 2271 


68=0.178+0.050 


kee. 35820)..031 
= Ake Ge EOL. ZL 
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k=8.35740.032 
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Reliability of the Parameters and Posterior Probability 


of Each Model 


Core sample No.15 


8 


Parameters and 


95 %$ confidence 


k=8.295+0.119 


b=4.165+0.758 


k=9.52040.149 


B=0.178+0.039 


k=8.817+0.072 
b=2.40340.257 


8=0.087+0.011 
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Reliability of the Parameters and Posterior Probability 


of Each Model 


Core Sample No. 7 


Bae 


Model Parameters and 


- 95 % confidence 


A Ki 2 Gye At de 3 1 


b= 6.524+2.194 


B k=36.390+0.461 


B= 0.21240.022 


Cc k=34.522+0.956 
b= 1.648+0.861 


B= 0.168+0.026 


D k=34.532+0.953 
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II 


Lobo 62 0785 7 
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Tablen3=19 


Reliability of the Parameters and Posterior Probability 
of Each Model 


Core Sample No." 2 


AE he 
Model Parameters and o* <L> oh 
= 95 % confidence (psia“) = = 
A k=220.36148.381 0.066 0.296x10°° ) 9060 
be 2S 07541 2396 
B kev) 66523 120 0.008  0.579x10 ~' ~6.498 
p= 0 205207019 
C k=287.712424.094 0.009 0.583x1071’ 0.502 


b= -0.410+ 1.584 


B= 0.2212 0.066 


3.4 Test of Goodness of Fit of the Error Distribution 


to a Normal Distribution 


The statistical analysis performed in Sections 
3.2 and 3.3 was based on the assumption that the errors 
are normally distributed with mean zero and known vari- 
ance are In fact, the expected likelihood was calculated 


considering the posterior distribution of the parameters, 
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£"(a), to be multivariate normal. Moreover, in order 
to use Bayes' theorem, the likelihood of the observa- 
tion vector must be computed; and this calculation 
requires a knowledge of the distribution of the error 
VEC TOL. 

Consequently, it is necessary to examine the 
residuals in order to. find out the probability of 


having the distribution of the errors given by 


Papas £ (€/0,0°) ‘ (621) 


This analysis is sometimes called "goodness" of fit to 
a given distribution (56). The null hypothesis is that 
the given distribution comes from a normal distribution 
given by Eq. (3-1), and it is to be rejected if the 
probability is very small. 

The computer program given in Appendix E calcu- 
faces the value of the Statistic chi-square, a and 
Tes; probability for the “qoodness" “of fit to a normal 
distribution: 

The value of the statistic was computed using 


the following expression: 


k ; 
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C5 is the expected frequency. 


Procedure details for computing the statistic and its 
probability are included in Appendix E together with 
a sample calculation. 

Values obtained for va indicate that the observed 
distribution of the error vector can be considered as 
coming from a normal distribution, tested at a level of 
Significance of 0.05. 

It should be mentioned that in obtaining the 
error vector cai for the j-th model, different initial 
value of the parameters were tried in order to confirm 
that a global minimum was found. The results showed 
identical least squares parameters with a tolerance 


equal to 0.1 x10". 
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CHAPTER 4 


MATHEMATICAL MODELLING OF TRANSIENT RADIAL GAS FLOW 


4.1 Literature Review and Theory 


In recent years a considerable effort has been 
directed to the theory of isothermal flow of gases 
through porous media. However, the present state of 
knowledge is far from being fully developed. The 
difficulty lies in the non-linearity of partial dif- 
ferential equations which describe both real and ideal 
gas flow. Solutions which are available are approximate 
analytical solutions, graphical solutions, analogue 
solutions, and numerical solutions. 

The earliest attempt to solve this problem 
involved the method of successions of steady states 
proposed by Muskat (57). Approximate analytical solu- 
tions (17, 32, 67) were obtained by linearizing the 
flow equation for ideal gas to yield a diffusivity-type 
equation. Such solutions, though widely used and easy 
to apply to engineering problems, are of limited value 
because of idealized assumptions and restrictions 
imposed upon the flow equation. The validity of 
linearized equations and the conditions under which 


their solutions apply have not been fully discussed 
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in the literature. Approximate solutions are those of 
Heatherington et al. (40), and MacRoberts (54). 

A graphical solution of the linearized equation 
was given by Cornell and Katz (48). Also, by using 
the mean value of the time derivative in the flow equa- 
tion, Rowan and Clegg (67) gave several simple approxi- 
mate solutions. 

Numerical methods using finite difference 
equations and digital computing techniques have been 
used extensively for solving both ideal and real gas 
equations. Aronofsky and Jenkins (5, 47), and Bruce 
et al. (13) gave numerical solutions for linear and 
radial transient gas flow. Aronofsky (3) included the 
effect of slippage on ideal gas flow assuming Darcy 
flow. Aronofsky and Ferris (4) considered linear flow 
of a real gas where the gas properties were expressed 
as linear functions of pressure. 

It has already been mentioned in Chapter 2 that 
as the gas flow velocity increases, departure from 
Darcy's law occurs. Such flow is termed non=-Darcy, or 
"turbulent" flow and defines a region where the inertial 
effect is significant. A gas flow equation including a 
quadratic velocity term to account for the inertial effect 
has been solved by Swift and Kiel (70) and Tek et al. 


(71) for ideal gases. Eilerts et al. (32) and Carter 
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(17) also included non-Darcy flow in their solutions 

for real gases assuming no slippage. An approximate 
solution including non-Darcy flow has also been presented 
by Rowan and Clegg (67). 

It should be pointed out that all the solutions 
for real gas as mentioned above were obtained with the 
implicit assumption of small pressure gradients, which 
implies omission of the term (ape asic. Also, a general 
assumption was always that of constant gas properties. 
Variation of gas properties with pressure has been 
neglected because of analytical difficulties, even in 
approximate analytical solutions. Moreover, all the 
flow equations result from the assumption of constant 
porosity in the continuity equation. 

The .first. attempt to obtain. solutions involving 
no assumption of small pressure gradient in the flow 
of real gases appears to be given by Al-Hussainy (1). 

He considered the effect of a pressure dependent visco- 
sity and gas deviation factor through the use of a flow 
equation in terms of a "real gas pseudo pressure". The 
analysis was done assuming Darcy-flow and neglecting the 
slippage effect. 

‘Chwyl (18) developed a flow equation for linear 
gas flow which takes into account slippage and non- 
Darcy flow but failed to consider changes of gas proper- 


tres and porosity with pressure. 
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In summary, the mechanism of fluid flow through 
a porous medium is governed by the physical properties 
of the rock, geometry of flow, PVT properties of the 
fluid, pressure distribution within the flow system, and 


the different regimes of flow. 


4.2 Development of a Mathematical Model 


A mathematical model has been developed which is 
capable of describing transient radial gas flow through 
porous media under conditions in which viscous, inertial 
and molecular streaming effects are simultaneously 
operative. The model also takes into account changes 
of gas properties and porosity with pressure, and does 
not imply the use of small pressure gradients. 

In deriving the flow equation and obtaining the 


solutions, the following assumptions were made: 


a) The porous medium is homogeneous with respect to 


permeability, and isotropic. 


b) The rock compressibility, eran is defined as 
oV 
ah x 
Cot et aN (4-1) 
x ve dp 
Cc) The pressure-dependent permeability, that is the 


slippage effect, is considered through a modified 


Klinkenberg equation. 


: ae See 
- ae se 
ez en eae 
i Es ian S 
/ ) _* r- \ a 


" $e z 5% 


dpyonds. walt btulz 2H in ese Sd wrniowas sade 
sears ve or degre vite suis xd _Eaarebop at nvstieon 

: pee he ees pyBaoxg TVG ~wee ‘- ter _ypranaee lb: 
is  meteye wold ‘ste ALAgLW nokspdaaee kD, eureorg. of 


Looe) 


geod ic lmenmatin snezet2s 4 


Labont aha 28 teenage Top 


ihe } 
tf 2.17 Hani layed ised age ata a Lach euntele ey 


pudtis yent esp Aeiea LpkESst ennda xb ssh ojo 


ri i ix pai -pudoativ so bdw we. BIeLS bouts labial sitions 


(Leusenndlimic S26 sdostie gi BsotIe “THLoDS ea 


sorndds arosos’ eFax sguet opie tshan ant ovine 


= 2 : 7 > » 
= = ee 


* ~ #930) Dn voxeesca™ an, Yedeomog ‘dae sai werent 


‘ 


agnsbaerdie chats ‘Ebatie 3 _aev esis iia 
poiniciao- Drie sit Lrbaips oot eos cv Sweet * ff 
:obaar Stew aabtiniicwn i alameda ba 1 ang 


x. 


4 toougot de sw, doe papomod a, MOLD stapog ot 
; P : 
4 vs HOSS i bis youre 
eA. 


? - + p 


E - a eee a ta 
Tob ‘22%, 2D SVE idiaesi4gie: 2s aft > 


‘ es id let 


; e > - - AG A : 
{f= A) ; ' Z c nl a ~— a .*) 
f= f) - | ie" 
= iy - _ : af 
- 259 Met $5 ia y re Ef icequrnscy dtobrs 2 5h) Set Pin: ot ¥ ; 
9 AF he Md gE S 7 - -_ 5 
: ae 
| th: a3 thou ‘6 yon Seiebigwen ai ce aie — 34 
_ S 7 ; 4 an a 


- : ° ery wie ee sn 
i Ay b 


59 


kK,= ka +2). (4-2) 
d) Flow is isothermal. 
e) The flowing gas is of constant composition. 
f) The system is plane radial geometry and uniform 
thickness. 
g) The continuity equation is valid, i.e. 


iyo a Okpo) : 
aia Lt (oq) Tae Ttaae (4-3) 
h) Forchheimer's equation is applicable, that is 


Darcy and non-Darcy flows are considered, 


3 
PP tt eepd|d| = Samy 
a 
a.) Gravitational forces are neglected. 
4) Changes of gas properties are computed as function 


of pressure at a constant reservoir temperature. 


k) Changes in rock porosity only depend on the diffe- 
rence between the internal pressure and the conditicns at 
which porosity was measured. 

As it is shown in Appendix F, the Forchheimer equation may 
be expressed, after Klinkenberg's correction term is 


introduced, as 
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epi e2usp sue 282 
A rceoestorh ay + Tetas jos (oq) (Jpq|) . (4-5) 
(@ 


To describe transient flow behaviour, the equation of con- 
tinuity is needed, and this is stated as 
2 

Hee 5 1 Aeaheeys 
=) OES [xr(pq)] = Leet eo a Pe Bz ise ° (4-6) 
This equation which is developed in Appendix F, takes 
into account changes of porosity $, with time which 
amounts to changes of > with pressure. 

Converting Equations (4-5) and (4-6) into dimen- 
Sionless variables as shown in Appendix F, they can be 


written as 


rm 2¢ wap T20g i. rie 
- 2 = —s_— < (pq) + 4,84 (0a) (lpal) (4-7) 
ax kp, (p+b) 


and 

1 ees rP ¢ 1 Ju 

——1ripg) | = = —=— [co + cot-—.- 1) -— : (4-8) 
gr _ 2 ee 9t 


These two equations must be combined according to 
the procedure also outlined in Appendix F. The result 
for the case where the rate of change of porosity was 
assumed to be constant, is the following flow equation 
which is a second order non-linear parabolic-type partial 


differential equation 
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~ [K(E,G,02) 24) = 6(z,a) 2 (4-9) 
or or ot 
where u s/o and the non-linear coefficients are defined 
as: 
ae rk p,(ptb) 
K(r,u,u=) = -—— (4-10) 
t 
S72 So mie er 
2r ,uZp + x 8kp, (ptb) Z|oq| 
G(E,a) ite a 
Y,U),= =-—s— [eo + ci(— =-1 A 4-11 


It should be noted that the dimensionless mass 
flux (pq), appears in the non-linear coefficient K. 
Hence, it must be related to the dimensionless pressure 
distribution by the Forchheimer equation as expressed in 
Eq. (4-7), and this further implies a dependence of the 
coefficient on the value of the derivative Sy 

In order to take into account changes of gas 
properties with pressure, the Benedict, Webb and Rubin 
equation (BWR) was used to compute values for the gas 
deviation factor Z, and a relevant equation was derived 
to calculate the gas compressibility eee Values for 
viscosity were obtained using the polynomial fit given 
by reeeing and Wang (49). The pressure used in the com- 


putation of these values is shown in Appendix H. 
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To completely describe isothermal plane radial tran- 
sient gas flow through a finite porous system, Equations 
(4-7) and (4-9) must be accompanied by an appropriate 
set of boundary conditions. The four sets of boundary 
conditions, corresponding to the constant terminal rate 
case and constant terminal pressure case, are summarized 
in the next table with boundary conditions given in real 


and dimensionless variables. 
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CHAPTER 5 


SOLUTION OF THE MODEL FOR THE TRANSIENT PROBLEM 


5.1 General Discussion of Numerical Methods for 


Parabolic Equations 


One of the most important applications of numeri- 
cal methodsof solution is to non-linear, partial diffe- 
rential equations. Several methods for solving quasi- 
danear requatzons. .(13,) 16,629.15 v2 elo 42d woken iad, 28, 
61) have been developed that result in finite difference 
equations which can be solved by existing algorithms. 
Until recently, many of these problems were intractable; 
with the use of high speed computers and the development 
of efficient numerical methods, many unresolved problems 
can now be handled. | 

A typical second order quasi-linear parabolic-type 
partial. differential .equation,, illustrated here.for the 


two-dimensional case, is as follows: 


3 
G(x,y,u) se = a [K (x,y ,w) S24] + gy lK (xy a) 55) + S(x,y,u,t) 


(5h) 


where G, K, and S are known functions, and the problem 


being that»of finding u throughout. a region R for all t. 
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For the linear case, that is when the coefficients 
G, K, and S in Eq. (5-1) are not functions of the depen- 
dent variable, a discretization of the space variables 
x and y and application of Green's theorem gives rise 
to a set of N first order, linear, ordinary differential 


equations, expressed in matrix notation as follows: 


= Au + S(t) (5-2) 


1Q 

oa Qs 

ct] IS 
| 


where G is a diagonal, positive definite matrix, A is 
a diagonally dominant, symmetric, and negative definite 
Matrix, and S(t)i(is a vector incorporating all the boun- 
dary conditions. 

Under these conditions, a closed form solution 
of Equation (5-2) has been obtained by Darsi and Quon 
(22). However, it was stated that for large matrices, 
Equation (5-2) should be integrated numerically. In doing 
that, the left hand side of the equation is integrated 
with respect to time using a simple first order correct for- 
ward difference formula. On the right hand side, the matrix 
Pees split anto two parts, one part pre-multiplies the 
vector u, at time level (mAt), the other pre-multiplies 


uel at time level (m+l) At. 
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Although a number of methods of splitting the 
matrix A have been proposed, the following are the most 
common: the forward difference explicit, the backward 
difference implicit, the Crank-Nicolson, the alternat- 
ing direction implicit procedure, and the alternating 
direction explicit procedure. These methods have been 
extensively discussed in)-the literature (2,16; 19, 34, 
Sop ca2y 6.1L). 

For the case where the coefficients are functions 
of the dependent variable u, the matrix A in Equation 
(5-2) will no longer be constant but will be a function 
of ue. Obviously, the criteria for stability known at 
the present for the linear case will not necessarily work. 
However, the transformation of variables suggested by 
Carslaw and Jeager (15) can be applied to simplify the 
problem (60). 


Let 

K(x,y,u) = a(x,y) 8(u) (5-3) 
eicn Equation: (5-1) becomes 

gu 


3 
G(xry St = 2 [a (x,y) 8 Cu) SS) + Slo (x,y) 8 (w) sy) 


+. aS (80, t.) . (5-4) 


Moreover, let 


u ; 
a | Bia) do (5-5) 
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where o is a dummy variable. Equation (5-4) now 
becomes 
G(x,y,u) 90 _ 2 30) 4 2 dw 
B (ua) 5 ax batK Yl t ay balk ry) so + S(x,y,t) . 
(5-6) 


The right hand side of the above equation is now linear, 
and if space variables are discretized as before, then 


Equation (5-6) yields 


E(w) — =Bwt S(t) . (5-7) 


Although the diagonal matrix £(w) is a function of w 
and hence varies, it always remains positive definite; 
B is a constant, symmetric diagonally dominant matrix. 
The conditions for stability of both ADIP and ADEP are 
therefore met. 

It should be pointed out that most of the time 
Pers difficult to-split the non-linear coefficient as 
a product of two functions such as in Equation (5-3). 
Moreover, if the non-linear coefficient is a function 
of the space derivative, the transformation is no 
longer applicable, and this method of linearization 
fails. 

A general finite difference equation to solve 
quasi-linear equations is the Crank-Nicolson equation 


in conjunction with some techniques of handling the 
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the non-linear coefficients. To discuss the various 
methods for numerically solving quasi-linear parabolic 
equations, let us consider the simplest equation of 


this type, having only one non-linear coefficient a(u), 


a(u) —ys+- = =~ . (5-8) 


The Crank-Nicolson analogs to the derivatives 


are centered about the time level t An analog to 


m+ ° 


the non-linear coefficient, a(u), is required at this 
time level; and, if the resulting finite difference 
equations are to be linear, this analog must not 


contain values of u at the time level th The simplest 


1 
such analog is obtained by evaluating a(u) at the old 


time level m, and using a(u_) for a(u If the func- 


Des 
mt+%, 


tion a(u) does not change very rapidly with u, the 
solution to the resulting finite difference equations 
should be fairly near the correct solution. These values 


can be ane ed by next evaluating a(uiis) as 


Uy 5F Unt 
a) 


a(u,) was used for alu, 


a ( is the solution obtained when 


41)- The result_of the continua 
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tion of this procedure is the following iterative equa- 
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where 
AZ : Ui+i,m = Syst si ttl gps 
x (Ax) * 
and 
a? =U 
ep itl date Os 


It should be pointed out that in Equation (5-9) the unknown 
(k+1) 


values are u. , and values of u. 


i,mt+l i,m+l are completely 


known. Therefore, the resulting finite difference 


equations are still linear. Iteration is continued 
(k+1) (k) 


Mie Us - u. S¢é 
aay Ti i,mtl 4 


a predetermined tolerance. 
The coefficient matrix for the set of linear 
algebraic equations is tridiagonal, hence the Thomas 
algorithm outlined in Appendix G can be used for the 
solution. This method might converge in four or five 
iterations. However, it is worth noting that since the 


First analog, to. a(u 1) uses an old value, there 
“6 


1,mt+ 
will be some limitations on the size of the time incre- 
ment to ensure stability. 

Douglas (25) has devised a method for projecting 
the value of u; to the half-time level for use in the 
non-linear coefficients. This method converges more 


rapidly than the method described above, but still has 


Some restrictions for stability which besides are rather 
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complex. In this method the value of the dependent varia- 
ble at the half-time level is obtained from a truncated 
Taylor series as follows: 
ou At 0 u 
u, =u, + (se) (==) + (8) (a), thew tuned 
i,m dt Hh 2 3t2 ; oe 2 


i ,mt3s 
: ’ 1,m 


(5-10) 


The series in Equation (5-10) is truncated after 
the second term to obtain a second order correct analog 
CO. Ui: 1- The time derivative in this analog is 

1,m+% 


then obtained from Equation (5-8). The resulting 


finite difference analog for u to be used in 


i,mt3s 


the non-linear coefficient is then 


af é e 
oe games ae + = bes Osea me (5-11) 
This value is then used in evaluating a(u) for use in the 
Crank-Nicolson analog to (5-8). The resulting finite 


difference equation can be written as 


u Uu. 


At 2 12 See OE sa 
Suna SAS ay! Mating, tte sone Mie pee ie At 
(5-12) 


The values of Us mtl which result from the application 
a 
of (5-12) can be corrected by an iteration procedure 


Similar to that described previously. However, sometimes 
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it might be more advisable to decrease the time step 
rather than to iterate. 

The actual application of (5-9) is performed in 
two steps. First the values of Us mts are determined 


explicitly from Equation (5-11) and used to evaluate 


a(u ). These values are then used to compute the 


SWPP Wages 

elements of the coefficient matrix for (5-12), and 

this system of linear equations can be again solved 

using the Thomas algorithm. Such a procedure has been 

proved to be efficient for the numerical solution of a 

number of quasi-linear, partial differential equations. 
Another analog to uly Poon Use ii sthe non= 

1,mts 
linear coefficients can also be obtained from a trur- 
cated backward Taylor series projection written about 


the time level t In this case, the Taylor series is 


Rit eh 
(24) At, (emits 1 (At)? 
u =u. - ( f= + (2S 5, (=) -.... - 
1,m ae tat oe gt i mts 2 yt? i mts oa Zz 


(5=13) 


Again, the Taylor series is truncated after the second 
term to obtain a second order correct analog, and the 
time derivative is obtained from Equation (5-8). In this 
case, the time derivative should be evauated at the 


- Moreover, if the space derivative is 


time level ree 


evaluated at tat and the non-linear coefficient is 
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evaluated at tal the resulting finite différence equations 
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could be written as 


a(u gen = Ways (5-14) 
i Moxie ms At/2 ; 


This equation is not explicit as is (5-11), but 
the resulting coefficient matrix is tridiagonal. The 


values of u. are therefore readily obtained, and 


i,mt+%s 


these are used in a Crank-Nicolson analog to Equation (5-8) 


which is 
2 nag Bessie 8 tea wh : 
a(u; ie 5 ee, Caine tee P (5-15) 


The values obtained from the two-step process 
using (5-14) and then (5-15) can also be improved by 
an iteration technique described before. It is obvious 
that a centered or Crank-Nicolson type of evaluation of 
Cares would be more convenient to use with Equation (5-15) 
than is (5-14). 


The centered Taylor series projection for u. 


i ,mt+4s 
can be obtained from the Taylor series for u, and 
1,mt+% 
As written about. the level t...,. Im “his tcase atu. |) 
1,m m+% 1,m 


is used for a(u. and the resulting finite diffe- 
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The values of u. obtained from this implicit 


i,mt+% 
equation are then used in (5-15) to obtain the values 


Ot .U It is important to note that the solution to 


i,mrl* 
Equation(5-16) can be considered as the first iterative 
value of (5-15) rather than as a value of the dependent 


variable at the half time level th This method is 


+3;° 
the so-called predictor-corrector method (25,27). 

While a large fraction of the problems encoun- 
tered by an engineer can be described by quasi-linear 
equations, there are a significant number in which other 
types of non-linearities arise. Douglas (25) has pro- 
posed an adaptation of the methods described above 


which will apply to non-linear equations. This class 


of equations is defined by 


gu gu ju : 
ae ate g, (x,t, u,u,)ar = Go (x,t, U,U,) ae (5-17) 
where 
Peo 
UL F Ox 


To solve this equation numerically, one must first 

obtain U6 eps for all walues. of, 1..\,. These values, may 
’ 2 

be obtained by any of the methods discussed above. 


The actual finite difference equations are then written 


according to the Crank-Nicolson technique with 
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(5-18) 
and 35 evaluated similarly. This method of evaluating 
Sy and J> for use in the Crank-Nicolson equation results 
in linear finite difference equations which can be 
solved readily ina fairly routine fashion. Furthermore, 
Douglas (25) has shown that this method preserves the 
unconditional stability of the Crank-Nicolson equations, 
though the time analog has a truncation error which is 
of the order of (At) 7*>, 

This method can be used for any type of non- 
linearity for which the coefficients of the derivatives 
are functions of the dependent variable, u, and of its 
first space derivative, 9u/dx. This type of non-linearity 
was found when developing the mathematical model for, 
transient radial gas flow, and it is completely discussed 
in Appendix G. 

In all the methods discussed before, the depen- 
by a 


dent variable u was first evaluated at time level tath 
2] 


truncated Taylor series, to obtain u The value of any 


m+ 3; 


function of u, i.e., G(u) was then computed using the value 


of from the exact relationship between G and u to 


u ’ 
m+ 3, 


obtain Ga . Alternatively, for cases where the rate 


ue 
+% 


of change of the derivatives of the function with respect 


to time does not show drastic variations; or where the 
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initial guess and final values of the function after 
achieving convergence are reasonably close; the value 
at the half time level of the function may be obtained 


using the following expression: 


— G(u,) 5 Glu, 44) (5-19) 
m+ 2 

It is clear that if Eq. (5-19) does not provide a value 
which is close to that given by Gus) serious problems 
of convergence might be expected, Whenever possible, 
however, Eq. (5-19) is generally preferred because of 
Lts simplicity. 

A similar situation is found when it is necessary 


th 


to evaluate functions halfway between the 2 and (g*My1) 


element, say, Coyne 


5/2 ‘Procedure Employed to Solve the Model 


The mathematical model developed in Chapter 4 can 
be classified as a second order, non-linear, parabolic- 
type partial differential equation. Mainly because of 
its non-linearity, this equation does not lend itself 
to analytical solution and consequently must be solved 
by means of a numerical technique. The technique must 


be stable and it must converge to solutions that can be 
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considered correct. Since the non-linear coefficient K 
in Equation (4-9) depends on the space derivative du/or, 
this equation has to be coupled with Equation (4-7). 
Finite difference approximation procedures are 
Classified as either explicit or implicit (74). Ex- 
plicit procedures yield solutions directly in terms 
of known quantities, but stability problems arise if 
the mesh size ratio is not properly chosen. Implicit 
procedures involve increased computational complexity 
but overcome this stability problem. In order to mini- 
mize problems of stability, implicit procedures were 
selected and the Crank-Nicolson procedure was chosen 
in particular so that a general program could be written 
to handle the four different boundary conditions given 
in Table 4-20. 
The following discrete approximations were employed 
in the numerical technique: 
a) A second order difference approximation of the 
Space derivative shown as coefficient of K in Equation 


h ele- 


(4-9), evaluated at points halfway between the gt 
ment and the Coe 1) element. 

b) A second order difference approximation of the 
time derivative evaluated at the half time level. 


c) A second order difference approximation of the 


Space derivative in the Forchheimer equation, evaluated 
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h and (gP41) element and at the 


halfway between the es 
half time level. 
d) A second order difference approximation of all 
the relevant boundary conditions. 

Since the non-linear coefficient K in the para- 
bolic equation is a function of the space derivative 


and was evaluated at en) and t. 4, , the space deriva- 
2 


+3; 
tive was approximated at these same points, Evaluation 
of the functions at these points were performed using 
Equation, 1(5-19).. 

The system of non-linear algebraic equations 


obtained after discretization can be written in matrix 


notation as 


Tey (5-20) 


The Thomas algorithm outlined in Appendix G, was applied 
to obtain the solution vector Oe at each iteration. 

Use of this algorithm was possible because the coefficient 
matrix M is tridiagonal. 

Changes of gas properties as a function of pres- 
sure were computed at each grid point by calling the 
peoroutine "FPRESS". Values of the gas deviation factor 24, 
were calculated using the Benedict, Webb, and Rubin equation 
(BWR) as cited in reference (8). A particular expression 


was derived in order to calculate the gas compressibility 
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oa and values of viscosity u, were obtained using the 
polynomial fit given by Kesting and Wang (49). 

The appropriate boundary conditions correspond- 
ing to the four cases considered in this work, were set 
through the subroutine "BCOND". 

Convergence of the solution at each time step 
was achieved when the following error criterion was 


satisfied at the (kth41) iteration 


p (k+l) _ (Kk) 
br x 


< 0.001 Ae ek nana (5-21) 


Fraction of gas produced at different time levels 
was also calculated according to the procedure indicated 
in Appendix G. 

Copies of the computer programs developed for 


the four cases are included in Appendix kK. 


523 Stability and Convergence 


The accuracy of a finite difference solution to 
a partial differential equation is conveniently dis- 
cussed in terms of the "convergence" and "Stability" of 
the difference scheme. 

Let D represent the exact solution of the par- 
tial differential equation, A represent the exact solu- 


tion of the partial difference equation, and N represent 
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the numerical solution of the partial difference equa- 
tion. Hence, (D-A) is the truncation error; it arises 
because of the finite distance between points of the 
difference mesh. Normally, a numerical solution can 
be termed "convergent" if it approaches the exact 
solution as the grid spacing approaches zero. 

On the other hand, (A-N) represents the numerical 
error. If a faultless computer working to an infinite 
number of decimal places were employed, the numerical 
error would be zero. Although (A-N) may consist of 
several kinds of errors, it is usually considered limited 
to round-off errors. A numerical procedure can be 
termed "stable" if an error introduced at the outset 
of an iteration scheme does not magnify itself as iter- 
ation continues. 

Whether a given finite difference scheme satisfies 
the criteria for convergence and stability (difference- 
scheme is convergent/divergent and stable/unstable) 
depends upon the form of the A-equation and upon the 
initial and boundary conditions. If the A-equation is 
linear, stability (and usually convergence also) will 
not nepeua on the initial and boundary conditions. 
However, for most problems, D and A are unavailable. 
Therefore, the principal problem in the numerical solu- 


tion of partial differential equations is to determine N 
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such that (D-N) is smaller than some preassigned allow- 
able error throughout the whole region considered. The 


following expression can be stated: 


Total error = Discretization error + 


round-off error , 


or, mathematically 
(D-N) = (D-A) + (A-N). (5-22) 


Whenever (D-N). is large, we shall ask whether lack of 
convergence or lack of stability is chiefly responsible 
for the discrepancy. It happens that very often in such 
cases, the discretization error overshadows the numerical 
Or sound-off error. 

In the numerical technique employed no instability 
problems were encountered because of the use of implicit 
formulae. However, loss of accuracy in the solution was 
observed when using large values of At especially for 
large values of permeability where the transient res- 
ponse is fast and yet the flux must be constant at the 
wellbore. This was manifested by oscillations in the 
wellbore pressure, but nevertheless continuously decrea- 
sing towards the steady state condition. A decrease in 
time step was always the solution to this type of oscil- 


lations at the wellbore. 
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Since no analytical solution can be obtained to 
the problem, convergence was assumed when the results 
obtained at one grid spacing agreed with a tolerance 
of 0.003 to those obtained at a grid spacing that was 
one-half the value of the previous grid spacing. Both 
the dimensionless space increment Ar, and the dimension- 
less time increment At were checked. Values of Ar close 
to the wellbore, where the largest pressure changes 
take place, were as small as 0.0010 for the first 5l 
grid points. The remaining 29 points were considered 
with a Ar equal to 0.0327. An increase in the number 
of grid points having Ar = 0.0010 did not have any effect 
on the solutions obtained when only 51 grid points were 
considered with Ar = 0.0010. 

Values of the dimensionless time step for large 
values of permeability had to be smaller than those used 
for low values of permeability, in order to avoid the 
SoM set ons observed at the wellbore and to satisfy 
the requirement of 0.003 as a maximum difference jn 
solutions for a smaller time step. Specifically, the 
following set of values were used for the two different 


TOCK permeabilities considered in this work: 
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At, _, = 2.50 ;ONG§I7) = 5.00 ; At,,_,5 = 7-503 
SEs 4_-= 10-00). 

10.0 md. : 
At, 246.50). ; At. = t-00..7) AL = 2.00); At, =o 200 
At. = 10.00; At, = 15.00; At. = 20.00; At, = 25.00 
At, = 30.00; At, o= 35.00; At, 4= 40.00; At, 5= 45.00 
At, '5= 50.00; At, 4= 60.00; At} E= 70.00; Atl ¢= 80.00 


Values of the dimensionless distance Ar and the dimension- 
less time At stated above were considered as the optimum 
grid size at which solutions were obtained. 

Unfortunately, the criterion used for convergence 
might not imply an absolute check since the numerical 
results can still differ from the true solution depend- 
ing on the rate of convergence. Nevertheless, under 
the criterion used the numerical solution can be consi- 


dered "convergent" and "Stable". 
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CHAPTER 6 


DISCUSSION OF RESULTS 


6.1" Dascussion of the Results Concerning the Statistical 
Analysis 

The results relevant to the analysis of radial 
flow were summarized in Section 3.2. The results obtained 
using core sample No. 1 will be discussed first. 

Table 3-4 corresponds to a set of 15 data points 
which were taken in a relatively narrow flow rate range 
with mean flowing pressure varying only from 14.5 to 38.7 
psia. This implies that the experimental data are most 
likely in the laminar flow region and therefore slippage 
effect must be more important than inertial effect. In 
fact, Model 2 shows a poor confidence of the inertial 
parameter 8, whereas Model 1 shows a very good confidence 
of the slippage parameter b. It may be seen, however, 
that the three-parameter models suggest that both effects 
are simultaneously operative. Moreover, the only rival 
models are Models 3 and 4, since the posterior probabi- 
ity of Models. 1 and 2 is. zero. 

Results given in Tables 3-5 to, 3-7 indicate a 
continuous improvement in the confidence of the para- 
meters for Models 2, 3, and 4. This improvement is 


associated with an increase in the number of data points 
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and with a large change in the value of the determinant 
of the matrix A = xx, Specifically, results obtained 
from run 1 and run 4 using Model 4, shows that the 
value of the determinant changed by a factor tor! 

On the other hand, Model 1 shows a drastic 
change in the value of the parameter estimates and 
a very low value of the expected likelihood which 
imply a poor absolute performance of the model. 

Parameter values corresponding to k and b for 
Models 3 and 4 show a trend to converge toward values 
of k and b as given in Table 3-4 using Model 1. This 
is what should be expected since those values for 
run 1 represent the most confident values because they 
were obtained with data corresponding to the laminar 
flow region, that is with flow ratesas low as possible. 

Posterior probabilities of Models 1 and 2 have 
always been zero for these four runs. On the other 
hand, the expected likelihood for Model 2 has always 
been greater than that corresponding to Model 1; and 
this difference has been magnified in Table 3-7 where 
most of the data are in the visco-inertial region. 
With Fueerh to the posterior probability of the three- 
parameter models, it is observed in Table 3-6 that 
Model 4 is clearly superior to Model 3; whereas in 


Table 3-7 where the results were obtained using the 
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largest information from the rock sample, Model 3 has 
a posterior probability comparable to that of Model 4. 
This might be an indication that the information 
obtained from the core sample in run 3 involves a 
region where the slippage term b/p cannot yet be 
neglected; whereas in run 4 the use of high values 

of flow rate involving high values of mean pressure 
eres the slippage effect insignificant and this vali- 
dates the assumption of partially neglecting the term 
b/p in the rigorous Model 4 to derive the three-para- 
meter simplified Model 3. 

Parameter estimates using Models 3 and 4 are 
very close each other and when enough data in the 
viscous and visco-inertial region are available, Model 
3 should be preferred because of its simplicity and 
the saving in computer time. 

In order to make a further analysis of the 
absolute performance of the models runs 5 and 6 were 
set up. Run 5 was taken with a constant outlet pres- 
sure of 40 psig and run 6 with a constant outlet pressure 
Oo: 20 psig. This permitted an examination of the effect 
of having low flow rates with high values of mean flow- 
ing pressure. Results for the former were summarized 


in Table 3-8 and for the latter in Table 3-9. 
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Values of the parameter estimates obtained from 
ovum Sxehangedvdrasitically mot sonlyy;for: Model1, but 
also for the three parameter Models 3 and 4. This 
left Model 2 as the only model whose behaviour so far 
satisfied the critera of absolute performance with 
regard to that of having relatively unchanging para- 
meter estimates. 

A similar behaviour was observed in Table 3-9 
corresponding to run 6. Therefore, it is evident that 
Model 2 is not only keeping the parameter values 
pretty well within the 95 % confidence but also shows 
an error variance whose maximum value is only 1.48 
psia’. This performance suggests that the slippage 
parameter b, is a third parameter which can only be 
used to obtain a better prediction in the region where 
the parameters were obtained but certainly no extrapo- 
lation is possible. 

For runs 5 and 6, the posterior probabilities of 
Model 4 were very close to unity. However, as pointed 
out above, the inadequacy of the model was evident. 

Also, values of the parameter estimates obtained 
from the three-parameter models are no longer close to 
each other. In Table 3-8, Model 3 estimates a value 
of b = 81.1 psia and Model 4 gives a value of b= 56.8 


psia. 
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Table 3-10 shows the posterior probability of 
the models for the different regions examined. It is 
clear that the sequential design of experiments shows 
that the region of maximum discrimination between 
Models 3 and 4 is that shown in run 5 which involves 
high flow rates with mean pressure values higher than 
60.0 psia. 

Tables 3-11 to 3-13 show the analysis performed 
using different rock samples. It may be seen in Table 
3-13 that only for large values of permeability, the 
posterior probability of the simplified three-parameter 
model (Model 3) becomes comparable to that of the 
differential model (Model 4). This is expected, since 
for large values of permeability the effect of the 
slippage term b/p is less significant, and therefore 
the assumption introduced in deriving Model 3 is valid. 
On the other hand, the results given in Tables 3-11 and 
3-12 show that only for rock samples with low permeabi- 
lity the performance of Model 1 is much better than 
Model 2 as indicated by the expected likelihood. This 
essentially is a result of the low values of flow rates 
which most likely occur in rock samples with low per- 
meability. In fact, this is best shown looking at 
Model 2 which gives a confidence limit for the inertial 
parameter 8, that is higher than the value of the para- 


meter itself. 
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The analysis of the linear flow was summarized 
in Tables 3-14 to 3-19. These results essentially 
show much more clearly what has already been stated for 
the radial flow. 

The results using the core sample with the lowest 
value of permeability is: given in Table 3-14. Model C 
estimates a negative value for the inertial parameter 
8 which has no physical meaning at all. On the other 
hand, the high confidence of the parameters k and b 
given by Model A shows that slippage effect is indeed 
controlling the nature of flow. This better performance 
of Model A is again associated with the lowest values of 
flow rates obtained using this core sample even though 
the final inlet pressure was already about 500.0 psia, 

Tables 3-15 to 3-19 showclearly the improvement 
in the confidence of the parameter 8 as higher flow 
rates are obtained using core samples with large values 
of permeability. This is best shown in Table 3-19 which 
corresponds to a rock sample having approximately 288.C 
millidarcies. High confidence of the parameter g is 
clear and Model B has now almost the same posterior pro- 
bability as the three-parameter Model C, showing the 
Minimum effect of the slippage parameter. 

It is interesting to note that for low values of 
permeability the value of the inertial coefficient 8, is 
very large but its effect is insignificant because of the 


low flow rates encountered in tight reservoirs. 
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The correlation matrices given in Appendices C 
and D show that parameters k and g are highly positive 
correlated, whereas the correlation between k and b and 
the correlation between b and g are both highly negative 


correlated. 


6.2 Discussion of Results for the Constant Terminal 
Rate Case: Case I 
Solutions for this case were obtained choosing a 


4 at the well- 


constant dimensionless mass flux of -0.4x10- 
bore and a gas reservoir having an initial pressure of 
2,900.0 psia, a drainage radius of 500.0 £t., anda 
wellbore radius of 6.0 in. 

Figures 6-1 to 6-7 inclusive show solutions using 
permeability values of 500.0 and 10.0 millidarcies. For 
a permeability value equal to 500.0, slippage and 
inertial coefficients were considered to be 10.0 psia 
and Ghai TO” ft respectively; whereas for a permeabi- 
lity equal to 10.0 millidarcies the corresponding values 


for the other two parameters were 50.0 psia and 0.1*x oy 


ett, These average values of the parameters were con- 
Sidered on the basis of the values obtained in the 

steady gas flow. On the other hand, since the mathema- 
tical model involves values for rock porosity and rock 
compressibility, these were assumed to be 0.132 (measured 
5 


at surface conditions) and 0.610 psia | respectively. 
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Figures 6-1 to 6-3 correspond to solutions with 
rock permeability equal to 500.0 millidarcies. Figure 
6-1 is a straight plot of the dimensionless pressure- 
squared distribution for different dimensionless time. 
Figure 6-2 shows the effect of the inertial coefficient 
as compared with the solutions obtained assuming only 
Darcy flow. Deviations from the Darcy-solution are more 
pronounced in the area close to the wellbore giving 
larger pressure drops because of the inertial phenomenon 
which has to be overcome in order to maintain the cons- 
tant mass flux at the wellbore. This pressure drop in 
the reservoir creates, in turn, higher mass fluxes in 
the vicinity of the wellbore as shown in Figure 6-3. 
Moreover, Since fluxes are coming from relative large 
areas inside the reservoir, the wellbore pressure does 
not show a significant drop. 

The effect of slippage was negligible as can be 
seen in Table 6-1 for a permeability equal to 500.0 
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Figure 6-1. Dimensionless Pressure-Squared Distribution - 
Case I: k=500.0 md., b=10.0 psia, g=0.1x10°2 t72 
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Figure 6-2. Dimensionless Pressure-Squared Distribution 
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Figure 6-3. Dimensionless Mass Flux Distribution Showing 
The Effect of the Inertial Parameter 8 - 
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Table 6-1 


Values of Dimensionless Pressure-Squared at the Wellbore 
Showing the Effect of the Slippage Parameter for Different 


Rock Permeabilities 


B = 0.0 
k b te 
(md) (psia) foot LS), 50 Re eS 
500.0 100.0 0.993 0.987 0.986 
50 20 0.993 0.987 0.986 
10.0 0.992 0.987 0.986 
0.0 0.992 0.987 0.986 
70:...0 100.0 0.953 0.706 02613 
50.0 0...9 2 0.690 0.608 
200 0.952 0.688 0.608 
0.0 0.951 0.688 0.608 
0.4 100.0 0.933 0.330 0.066 
O.0 0.936 0. 406 0.094 


Similarly, the effect of rock compressibility 
for different combinations of the other three para- 
meters was found to have no effect at all as shown in 


Table 6-2. 
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| Table 6-2 


| 
Values of Dimensionless Pressure-Squared at the Wellbore 
Showing Effect of Rock Compressibility 


k= 500.0 md. 


cy. b B t 
(psia +) (psia)  (£t7+) is rhseeas 7305 
0 0 0 0.992 0.987 0.985 
0.6x10-> 0 0 0.992 0.987 0.985 
0 10 0 0.992 0.987 0.985 
0.6x107> 10 0 0.992 0.987 0.985 
0 0 0.1x107 0.980 0.959 0.951 
0.6x107> 0 0.1x10? 0.980 0.959 0.952 
0 10 0.1x10? 0.980 0.959 0.951 
0.6x10~> 10 0.1x10? 0.980 0.959 0.951 


It is then quite clear that the effects of slippage 
and rock compressibility on the pressure distribution 
for a permeability value of 500.0 md., are indeed 
negligible. 

Figures 6-4 to 6-7 show solutions with the set 
of parameters corresponding to a permeability value of 


10.0 millidarcies. Figure 6-4 is a straight plot of the 
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dimensionless pressure-squared distribution for different 
dimensionless time. 

By comparing Figure 6-1 with Figure 6-4, it may 
be observed that a marked difference occurs in the 
extent of the transient affecting the area inside the 
reservoir. In fact for a rock permeability of 500.0 
millidarcies the transient was able to affect the 48th 
grid point at the end of t = 73.5, whereas for a value 
of 10.0 millidarcies the transient only reached the 21st 
@rid point at the end of t = 278.0. Consequently, in 
order to have a constant mass flux at the producing face, 
the pressure drop at the wellbore was very large giving 
a value of Be = 0.0304 at t = 278.0, as shown in Figure 
6-4. 

The effect of the inertial coefficient g is shown 
in Figure 6-5 where, rather surprisingly, except at the 
wellbore, lower pressure drops inside the reservoir are 
obtained as compared with Darcy flow. This behaviour is 
explained in Figure 6-6 where the flux in the vicinity 
of the wellbore is smaller compared to those from Darcy 
flow, and therefore lower pressure drops should be 
expected. As it is shown in Appendix I, the solution 
corresponding to the set k = 10.0 md., b = 0.0, and 
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pe= 0.2«10 fem ehows at the end of © =.338.0.a value 


for pe = 0.005 and therefore production was terminated. 
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Figure 6-4. Dimensionless Pressure-Squared Distribution - 


Case I: k=10.0 md.,b=50.0 psia, g=0.1~107°¢t7?, 
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Figure 6-5. Dimensionless Pressure-Squared Distribution 
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Case I. 


100 


The effect of slippage is also shown in Table 
6O=1. It may be seen. that the slippage coefficient 
showed a small effect on the solutions. However, it 
is interesting to note that this effect acts in two 
directions depending on the value of the slippage 
eoefficient \b, and on the rock permeability. 

Figure 6-7 shows that for values of the dimen- 
Sionless time less than 33.5 with b = 50.0 psia, the 
slippage gave a smaller pressure drop at the wellbore 
as compared with Darcy flow. However, after t = 33.5 
slippage becomes more significant because wellbore 
pressure is decreasing and since the transient does 
not move fast in tight reservoirs, the depletion rate 
has to be increased in the vicinity of the wellbore to 
maintain a constant mass flux at the producing face. 
Obviously, this implies larger pressure drops. For 
larger values of b, this phenomenon was also observed 
But at a later time. Specifically, for b = 10050 psia 
it occurred at t = 143.0. 

To further show the effect of the slippage 
phenomenon in tight reservoirs, two solutions were 
obtained for a rock permeability of 0.1 millidarcies. 
Results showing this effect for values of b = 0.0 and 
b = 100.0 are given in Table 6-1. It is evident that 


this effect is magnified as the rock permeability 
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Figure 6-7. Effect of the Slippage Parameter on the Well- 
bore Dimensionless Pressure-Squared as Function 


of Time - Case I. 
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decreases and as time increases. Moreover, for this 
case the slippage only acted in one direction, that is, 
the pressure drop at the wellbore was always larger 
than that obtained with b = 0.0. 

Table 6-3 shows the influence of the slippage 
coefficient in the presence of inertial effects. It 
may be observed that when slippage was present, the 
pressure drops were even higher than those obtained 
when only the inertial coefficient was present. 
Furthermore, this effect is magnified at the wellbore 
as time increases and dies out as the radial distance 
increases. At first glance, this might be thought as 
contrary to the theory since inclusion of slippage 
should imply a smaller pressure drop. However, the 
fact that slippage is now associated with inertial 
effects makes that the region close to the wellbore, 
where slippage is more significant, be depleted at a 
higher rate to satisfy the constraint of constant mass 
flux at the producing face, and therefore larger pres- 


Sure drops occurred. 
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Table 6-3 


Values of Dimensionless Pressure-Squared Showing 
Influence of the Slippage Parameter in the Presence 
of Inertial Effects 


10 


k = 10.0 md., b= 50.0 psia,. g = 0.1x1079 +7? 


£0100 Oven SF0 O0aD 2.400 0 1.000 1.000 


x 
0.943 25000, 7 12000, £000 1.000 1.000 


SS oc 0.618 O29 5 U9 9s 1 O00 1.000 1.000 


UR Se 0 8 ia 209 eles 00 1.0.0.0 1...00.0 


Dos 0.361 O. 951.50. 996) 000 1.000 ee D0 


0.380 059515 )07996. 1.000 1.000 1.000 


143.0 0.160 0.5849 U.904 U.993 Ops £000 


Teo9 0,648 0.964 0.992 0.999 1.000 
278.0 0'°,033 0.749 0.910 °° 0.968 02930 O99 7 

On 030 0.747, 0.509" 0.967 0.989 OL o57 
; Solutions with parameters k and 8. 


Solutions with parameters k, b, and 8. 
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The effect of rock compressibility is shown in 
Table 6-4. Deviations from Darcy and non-Darcy flow 
were observed. In fact, it was found that inclusion 
of the rock compressibility always results in smaller 
pressure drops. This suggests that more flux is 
expected when the rock compressibility is considered, 
but since the mass flux is kept constant at the well- 
bore the net effect is a restriction of the mass flux 
inside the reservoir which implies a smaller pressure 


drop. 
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It should be pointed out that for a permeability 


of 500.0 millidarcies there was no appreciable effect 


of the rock compressibility. This merely indicated 


that the extra flux provided by the effect of the rock 


compressibility was indeed insignificant as compared 


with the total mass flux moving inside the reservoir. 


The solutions obtained for Case I are presented 


in Appendix I. 
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k = 10.0 md. 
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6.3 Discussion of Results for the Constant Terminal 


Pressure Case: Case IV 


The solutions for this Case have been obtained 
with a constant dimensionless wellbore pressure equals 
to 0.5. The corresponding values of the parameters 
and other relevant data have been considered the same 
as in Case I. 

Figures 6-8 to 6-10 inclusive correspond to 
solutions with rock permeability equals to 500.0 
millidarcies. Figure 6-8 is a straight plot of the 
dimensionless pressure-squared distribution for dif- 
ferent dimensionless time. Figure 6-9 shows the effect 
of the inertial coefficient as compared to Darcy flow. 
By comparing Figure 6-9 and Figure 6-2 corresponding to 
Case I, it is quite clear that for the constant terminal 
pressure case, the solution for non-Darcy flow shows 
now a larger departure from the Darcy flow. Moreover, 
the effect has been reversed in the sense that now the 
inclusion of inertial effects provides a smaller pres- 
Sure drop. This becomes teen obviousisin-~Figure 6-10 
where the mass flux is very small because of the inertial 
effects and the constraint of constant pressure at the 
wellbore. 

As in Case I, slippage and rock compressibility 


did not show any appreciable effect, as can be observed 
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Figure 6-8. Dimensionless Pressure-Squared Distribution - 
Case IV: k=500.0 md., b=10.0 psia, 8= 
o.1x10? £t7?. 
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Figure 6-9. Dimensionless Pressure-Squared Distribution 
Showing»the..Effect of the Inertial;Parameter 
B - Case IV. 
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Figure 6-10. Dimensionless Mass Flux Distribution Showing 


the Effect of the Inertial Parameter 86 - 
Case IV. 
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in the Tables presented in Appendix J. 

The solutions with the set of parameters corres- 
ponding to a permeability value of 10.0 millidarcies 
are shown in Figures 6-11 to 6-13. Figure 6-11 once 
again shows that for tight reservoirs the extent of the 
transient affecting the area inside the reservoir is 
relatively small. Figure 6-12 shows again that iner- 
tial effects restrict the mass flux inside the reservoir 
and therefore a smaller pressure drop is obtained. 
Moreover, the departure from Darcy flow now is not so 
impressive as shown in Figure 6-9 for a permeability 
value of 500.0 millidarcies. » This further indicates 
that for tight reservoirs inertial effects are less sig- 
nificant because of the small fluxes in the reservoir. 

Figure 6-13 shows in fact that the difference in 
fluxes for Darcy and non-Darcy flow is quite small as 
compared with Figure 6-10. | 

The small effect of slippage at the wellbore may 
also be seen in Figure 6-13. It may be observed 
that slippage is most significant at the wellbore and 
modities Darcy flow by giving a larger flux for a cons= 
tant wellbore pressure. It should be mentioned that 
TOL ant reservoirs values of ee slippage coefficient 
b,might be easily larger than 50.0 psia; in which case 
the above effect would be magnified. Table 6-5 shows 


Clearly the effect of the slippage on the mass flux 
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Figure 6-l1l. Dimensionless Pressure-Squared Distribution - 
Case IV: k=10.0 md.,b=50.0 psia, 8=0.1x1019 
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distribution. The corresponding dimensionless pressure- 
squared distribution given in Table 6-6 shows a larger 
pressure drop associated with the larger fluxes. 

It should be pointed out that the same effect of 
the slippage on the dimensionless flux was observed 
evenin the presence of-inertial effects, although. the 
difference in mass fluxes was somewhat smaller. 

The effect of rock compressibility on the mass 
flux and pressure distributions is shown in Table 6-7 
and Table 6-8. It can be observed that the effect of 
the rock compressibility is to give slightly larger 
mass fluxes in the reservoir: with a smaller pressure 
drop. This is in agreement with the constraint of 


constant pressure at the wellbore. 
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Table 6-5 


Values of Dimensionless Mass Flux Showing Effect of 
the Slippage Parameter 
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Values of Dimensionless Pressure-Squared Showing Effect 


of the Slippage Parameter 
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Table 6-8 


Values of Dimensionless Pressure-Squared Showing Effect 
of the Rock Compressibility 
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CHAPTER 7 


CONCLUSIONS AND RECOMMENDATIONS 


7.1L Conclusions with Regard to Steady Gas Flow 


As a result of the statistical analysis performed 
on the mathematical modes describing steady gas flow, 
the following conclusions can be formulated: 

a Out of the four mathematical models considered 
for radial gas flow through porous media, the differen- 
ie model which corresponds to the most general equation 
gives the best prediction associated with the highest 
posterior probability. However, this differential model 
failed to pass the absolute performance test since, for 
some runs, values of the parameter estimates changed 
rather drastically well outside of the 95 % Penta ence 
limit, when compared with the best estimates obtained 
using the largest information from the core sample. 

7 The three-parameter simplified model appears to 
describe reasonably well radial gas flow through porous 
media, since its solutions are quite close to those 
obtained from the differential model. However, this is 
true as long as information from the core sample inclu- 
des data points in the viscous region with low values of 


Mean flowing pressure; otherwise it behaves like the 
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differential model showing a drastic change in the 
parameter estimates. 

oye The two-parameter model with parameters k and 
8 was the only model whose behaviour satisfied the 
criteria of absolute performance especially for the 
relatively unchanging parameter estimates over the 
entire operating space. 

4. The information used from core samples with 
permeability ranging from 0.04 to 288.00 millidarcies 
shows that for low values of permeability, even with 
inlet pressure as high as 500.00 psig, the slippage 
effect is extremely important because of the low flow 
rates developed in tight reservoirs. However, the 
better performance of the two-parameter model-k and 
b, is considered as a local approximation because of 
the larger variance obtained when additional data are 


incorporated. 
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ig For large values of permeability inertial effects 


are the most important. This of course, is because of 


the larger flow rates taking place even at low values 


of inlet pressure. 


6. The sequential design procedure provides a means 


to estimate the design parameters with a better confi- 


dence. Specifically, for core sample No. 1 when using 


Eerdata points anstead Of 30, the percent error in the 
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parameters, namely; permeability, slippage and inertial 
were /.58, 33.6, and 20.9 respectively. 

we The chi-squared statistic indicates that the 
actual errors obtained from the models, can be consi- 
dered as coming from a normal distribution, tested at 


a, level, of significance-of 0.05. 


7.2 Conclusions Concerning Transient Gas Flow 


The theoretical study undertaken in this inves- 
tigation and the results that were obtained, provide 
the following conclusions: 
dre A mathematical model has been developed which is 
capable of describing visco-inertial transient radial 
gas flow through porous media when slippage and rock 
compressibility are considered. The model is quite 
general in the sense that changes of gas oe 
with pressure are accounted for, and it does not require 
the assumption of small pressure gradients in the entire 
flow system. 
2% The mathematical model is not only able to des- 
cribe flow when all four effects occur simultaneously, 
but it can be used to describe and compare flow when 
any combination of these effects is present. 
3 This theoretical investigation has shown that 
the model can be solved numerically for all the four 
sets of boundary conditions. Despite the fact that the 


solutions were obtained at an optimum grid size, no 
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statement can be made concerning the accuracy with which 
the model predicts actual flow as the results obtained 
were not compared with experimental observations. 

4. An examination of the numerical results suggests 
that slippage and rock compressibility appreciably alter 
the pressure and mass flux distributions in typically 
tight reservoirs. For ares values of permeability these 
effects are indeed negligible. 

es Further examination of the results obtained for the 
constant terminal rate case indicates that inertial effects 
modify the solutions in a manner which depends on the 

rock permeability. For large values of permeability, the 
inertial effect is but another resistance to flow such 
that larger pressure drops occur in the reservoir. How- 
ever, for tight reservoirs larger pressure drop was only 
observed at the wellbore as a result of the ess mass 
flux imposed at that boundary. 

6. For the constant terminal pressure case, inertial 
effects always restrict the mass flux in the reservoir 
and therefore smaller pressure drops were observed in 

the reservoir; the effect being more significant for 
large values of permeability. 

i For tight reservoirs, the inclusion of slippage 

in the presence of inertial effect shows that these two 
effects do not tend to cancel each other, but rather a lar- 


ger pressure drop was observed when slippage was considered. 


ye SRT 


AS ttiw. ddiw vortyoos. and pntanaonee abem od ee 

pasigade soivest 2Ay ws wots iauidoe wiorboxa& 
waeedo Istaamieqne di Borin | ‘0 3 
(ao ltemun eit we actzenincxe aA | 


abgames pore bas - ‘aeainees 


sadte videioetqge ys i 
avs mL. & io. tuck ae soit. ar Bas 
"exiovaaean 


aagite 


aldebpes atiues 


7 
af 


vileu) 


gags ysilidnadzed To eugitae axel jsou 
wary hl pee opti ; 
y eit’ te4 baddéeade 27J0ea2 ‘ea3- 30 sotresinere 


Laisyvecl geds 2edeoiart ae5% otex banded’) 


et>s2 gy 


eis mo aboagod ra cilw rarighhe & ar aaoley tow’ eat + 
aioe 42 Li bdsemseg bo. way ev oyun 108 pili somos 
tave wold of soaezelnes seer gehen ome ef sate tpi 


= - a My ‘ss } aie 
woh .Vtowneeen sii? aaa 200%h saisedsg segtel am 
gino ssw qowh saeqeomg tapiel dutiitieusc soit 20 


oy 


epam Irtn tenes and. ~~ eT, & eh eye afd HB. VE 
iti 


“ae a fee “paabauod 0rd a0 besoeri 
heii wert i a8 QIN SP Sag Lanebesacs +e pene mang ote 
<Lnvewnet atts nt seks tuant ony dolzceet eyewks nas a“ 

am, red, saociah tame eyo acs Sisisee xq 1 PLY nionouelts 
Ms | £02 gmupitiagte’ sxe pndad setts rit juiavioedall 


, x | 
: > | Py vot tte te Satan. 
es . 
a / seaside Yo agiewiont ond .ciiorsepet sdeesuict ae ‘ 
oes bens jnsit dverdé toslte etsrent’ in ad yest ori ay! 
‘ 


ae 
_ beck @ tied sua wort finesse leonas GBtoned 76K ob: aroolte 


fh sberebbeaws new deangits em ryote —f ihn foun 8 " 


7 
4 
= 
oe 


E23 


7.3 Recommendations 


The following recommendations are made: 
xe A modification in the term including the slippage 
coefficient should be attempted, since this parameter 
had the largest variation. This might be achieved by 
modifying the assumptions made by Klinkenberg (52) when 
developing the slippage term. 
ra Further experimental data for linear gas 
flow taken under conditions similar to those given in 
runs 5 and 6 for radial flow, could be used in order to 
verify in a more rigous way the absolute performance of 
the models for steady gas flow. 
Si An expression for the expected likelihood of the 
models developed assuming an unknown error variance ar 
could be used in order to be more realistic. In this 
case, the posterior parameter-variance joint distribu- 
tion is approximately multivariate normal-gamma-2. 
4. A relationship between rock compressibility and 
porosity should be developed so that the assumption of 
constant rock compressibility could be dropped. 
Be The subroutine "FPRESS" which calculates nitro- 
gen properties as a function of pressure should be 
extended so as to include an alternative to evaluate 
natural gas properties, This can be done using corre- 


lations already available in the literature. 
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GC. The numerical results obtained for the transient 
radial flow should be compared with experimental obser- 
vations so that the accuracy with which the model pre- 


dicts actual flow could be known. 
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- a symmetric and positive definitive matrix (q xq) 


defined as xx : 


determinant of A. 


group of variables defined as Vavg Tavg avg in 


the radial case, and Vavg wee Z avg! Io in the 


linear case. 

cross sectional area. 

parameter vector. 

Parameter vector which gives ao 
slippage coefficient. 
variance-covariance matrix. 

gas compressibility. 

rock compressibility. 

group of variables defined as 712.0 Vavg avgzavg 


group of variables defined as 1 Se01x 00 ~*' x 


Ze 
G ee oa QG/n ; 
dimensionless mass flux at the wellbore. 
prior parameter density. 


posterior parameter density. 


gas specific gravity. 


conversion factor. 
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r - independent variable for radial flow 

r - dimensionless radial distance 

re - external radius 

ry - wellbore radius 

a - the minimum™~sum of the squares of the errors 
fh —. temperature 

t - time 

x - dimensionless time 

u - dimensionless pressure-squared 

ue - equivalent to 9u/9r 

W - group of variables defined as W/Vayg * in the 


linear gas flow 


4 - the design matrix (nxq) with elements defined 
as partial derivatives of the function with 


respect to the parameters. 


x - independent variable 
y - dependent variable 
Z - gas compressibility factor 


Greek Letters 
fo) - viscous resistance coefficient = 1/k. 
Oy - group of variables defined as M/RT 


8 - inertial coefficient 
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Ww = mass rate 

07 - unbiased error variance 
u - gas viscosity 

0 - gas density 

p_ - rock density 

0) - porosity, fraction 

o( ) - function 

Superscripts 

(k) - iterative parameter 

ah - transpose of a matrix 


= - denotes a dimensionless quantity 


Subscripts 
avg - average value 
ak - index for grid points in the r direction 


time index 
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APPENDIX A 


LEAST=-SQUARES ESTIMATION OF NON-LINEAR 


PARAMETERS USING MARQUARDT'S ALGORITHM 


The computational aspects of finding the least- 
squares estimation of non-linear parameters can be 
summarized as follows. 


Let the experimental model be 
y = $(xX, a) +e (A=1) 


where x is the set of independent variables, {Xp eXoreeeX Sy 
ais the parameter vector, fay 725 reese! and € iS an error 
vector which includes both experimental and modelling 
errors. 

For a given set of data, say n data points, we 


define the set 


{Ys XyarXoqreee Xpy Sith = lee oavapene Lees 


n 
s*= J fy, - (xj, al’ =] ef (A-2) 
= Au 


: Paes ; TT AP) 
is a minimum. Let this minimum be s~. Hence, 


s?= min J fy, - o(x,, a}? . pia, aes, 
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The basis of most methods is some kind of lineari- 
zation of the problem, that is a succession of lineariza- 
tions which will hopefully lead us to the true solution. 

There are two common approaches on which most 
algorithms for the least-squares estimation of non-linear 
parameters are based. 
1S The model may be expanded as a Taylor series and 
corrections to the several parameters calculated at each 
iteration on the assumption of local linearity. If the 
expansion is performed about some trial value of a, say 


(Oo) 


a , we can write: 


gq eX) 
“a (oO) = (0) if 
fo) (x5 7a +5) = o(X5 7a ) a a Sern (Sn) ; Fe le oss 
j=1 aya. \°) J 
ne ea ps Rr Pea ed 8 - (A-4) 
or in matrix notation 
pes = oe + xX om (A-5) 


where »* is used to distinguish predictions based upon 
the linearized model and the actual non-linear model, X 
is a matrix of partial derivatives with respect to the 


parameters, called the design matrix. Hence, 
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mune correction vector Om appears linearly in equation 
(A-5). Therefore, it can be found by the standard least- 
squares method of setting (38**/26,,) = 0, for all jy. 


The vector Om is then found by solving 


A Sm ae? (A-7) 
where Bi (Gxq) is defined as x'x , and it is a symmetric 
and positive: definite matrix. )g is a vector defined as 
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If the function was originally linear, or if the 
approximation given by the truncated Taylor series 
is valid, then the least-squares estimators are 


given by 


(A-8) 


But because of truncation error, we do not get to the 


true answers, but hopefully an improved set of values 


(1) is a!) Bi oe ' (A-9) 


In practice, if the approximation is grossly in 


error, 5° LO) 


(a")) may not show an improvement over s*(a 
This would indicate that the extrapolation was beyond the 
region where ¢ can be adequately represented by the 
linearized model in (A-5). One remedy is to modify the 
Step sizetinj a ctolarvalue kaon iO" ist io SRM Oncel-the 
direction has been specified by Sm+ Even so, Pa Lune 

to converge is not uncommon. 

25 The other approach is the so-called gradient method; 
by which we find the slope of the function to be minimized 


by taking partial derivatives, and then moving in the 


direction of the negative gradient. Thus, from some 
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where ka is the step size which indeed has to be con- 
trolled carefully once the direction of the correction 
vector has been established. Even so, convergence is 
not guaranteed and if it does, slow convergence is the 
rule rather than the exception. 


Marquardt's algorithm (55) generalizes and modi- 


fies Equation (A-7) as 


pao er) 6, = 9 (A-11) 


where i} > 0. There are 3 theorems which are proved in 
the algorithm. 


Theorem 1 
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Let Se satisfy Equation (A-1l), then 8, minimizes si 


on the sphere whose radius ||é|| is equal to || ||. 
The asterisk refers to the linearized model. 
Tieorem 2 

Let 6,0) be the solution of Equation (A-11) for a 
given value of A. Then blo cewald is a continuous decrea- 
sing function of \ such that as A>, pedal eae O's 
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asiaasie, wae OenesSince So is independent of A, it follows 


that St rotates towards So as A> ~, 
In order to improve the numerical aspects of com- 
puting procedures, Marquardt suggests that the A matrix 


should be normalized as follows. Let a!0) . EHS and 


define 
Z 0 0 
(Oo) 
ra 
p?) = ‘ ih (A-12) 
(oO) 
Roo 
0 wie) 
qq 
Hence, we can write 
eA) Le = i, (oycer (oe) 2 
OR ed or (A-13) 
Ge ep urgers (A-14) 
x (0) be p 0) g, CODE Oe AO (A-15) 


Then, the correction vector for the Taylor series can be 


obtained from 


x(0) x ~ (0) 
x '0) ee = g '° | (A-16) 
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Similarly, the general Equation (A-11) at the ae iteration 
is written as 
(a) : ee jee? a g?) { (A-17) 


After solving for 
obtained from 


(OFC RAO) a (O) 
Sn =D Om (A-18) 


and 


a 3 ete e ee d (a-19) 


Conceptually, we see that Marquardt's method 
reduces to Taylor's method (sometimes called Gauss- 
Newton) as X + 0, and to the gradient method asd +O, 

A finite value of X interpolates between the two. 
Computationally, we use a small value of i when we are 
at a point such that Gauss-Newton converges, since the 
method gives rapid convergence when it does converge. 

We may have to use a large value of i in the first few 
steps to make certain that we are going in the Bion t 
direction. It follows from the theorem, that unless the 
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The algorithm is summarized as follows: 


ie Choose y > 1; a recommended choice is vy = 10.0. 


Eh 


age Let , F) denote the value of \ at the r itera- 


tion. To get started, we might choose yee = 0.01. 
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< where w is the smallest positive in- 
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4. The criterion for convergence is given by 
Say eee 
< € 3 
t + au 


for all j and for some suitable ac Oasay dos? and some 
Suitably T, say Loa 

For cases where the parameters are highly corre- 
lated (> 0.99) it can happen that i} will be increased 
to unreasonably large values, therefore it is suggested 


that an improved parameter vector be found using the 


following expression 
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where k is equal to 1: if 7 > Y., otherwise k 


fe) 
should be sufficiently small so that MAS ae) <3 ead 


(xr) 


This can always be done since y he es tT/2. A suitable 
choice for the criterion angle is Ve 1/4. 

A copy of the computer program using Marquardt's 
algorithm including the feature for parameters which are 
highly correlated is given in the following pages. The 


program is for the case of steady radial gas flow, and 


it can handle two- and three-parameter models. 
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MAIN LINE 


HE AE AE AS BE AE HE EC EE DIE BK OYE IE OE OEE OE OIE AE BIS OE KE 2K IC 2S SIE DIE OE IK OIE AIC IE AE SHE OE IS IS OE OE EK IE AK OIC OE OE OIE OK OK IC OK 3K 2 


STEADY ISOTHERMAL RADIAL GAS FLOW 


NON-LINEAR PARAMETER ESTIMATION FOR 
INTEGRATED FORMS 


THIS PROGRAM COMPUTES THE LEAST SQUARE ESTIMATES OF 
NON-LINEAR PARAMETERS. FOR A NORMALLY DISTRIBUTED SET 
OF INDEPENDENT AND DEPENDENT VARIABLES THESE 
PARAMETERS ARE ALSO THE MAXIMUM LIKELIHOOD ESTIMATES. 
THE PROGRAM IS GENERAL BUT REQUIRES THE EXPLICIT 
DEFINITION OF THE OBJECTIVE FUNCTION AND OF ITS 
DERIVATIVES WITH RESPECT TO THE PARAMETERS. THIS 
PROGRAM ALSO COMPUTES THE RELIABILITY OF THE 
PARAMETERS AND THE EXPECTED LIKELIHOOD OF THE MODEL. 
IT ALSO HANDLES CASES WHERE THE PARAMETERS ARE HIGHLY 
CORRELATED. 

INPUT DATA 

ICONT CODE TO PERFORM PARAMETER ESTIMATION 
ICONT=0 PARAMETERS ARE ESTIMATED FOR 

TWO AND THREE PARAMETER MODELS 


ICONT=1 PARAMETER ESTIMATION IS ONLY 
DONE FOR A THREE-PARAMETER MODEL 


M - AN INTEGER TO INDICATE NUMBER OF 
PARAMETERS 

N - AN INTEGER TO INDICATE NUMBER OF 
DATA POINTS 

B - INITIAL GUESS OF THE PARAMETER VECTOR 


B(1) PERMEABILITY, MILLIDARCIES 
B(2) SLIPPAGE COEFFe, PSIA 
B(3) INERTIAL COEFFe, 1/FT 

LMD1 =- STARTING VALUE OF LAMBDA 

W - A CONSTANT WHICH MAY BE USED TO 
INCREASE THE RADIUS OF THE SPHERE 
WHERE A SEARCH IS BEING CONDUCTED 


T - A CONSTANT CONSIDERED IN THE EXPPRESSION 
FOR CONVERGENCE 

RE - EXTERNAL RADIUS, FT. 

RW - WELLBORE RADIUS, FT. 

H - THICKNESS OF ROCK SAMPLE, FT. 

PW - SET OF PRESSURES AT RW, PSIA 

PE - SET OF PRESSURES AT RE, PSIA 

ZZ - SET OF VARIABLES DEFINED FOR EACH 


RUN AS THE PRODUCT OF VISCOSITY, 
TEMPERATURE, AND COMPRESSIBILITY 
FACTOR 
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MAIN LINE wee (CONT'D) 


VIS “Pt SET OFVAVERAGE .VAEVES.OF' VISCOSITY 
FOR EACH RUN, CP. 

Q - SET OF VALUES FOR GAS FLOW RATE, 
MSCF/DAY 

REMARKS 


le OBJECTIVE FUNCTION AND ITS DERIVATIVES 
WITH RESPECT TO THE PARAMETERS ARE 
EXPLICITLY DEFINED BY FORTRAN FUNCTION 
STATEMENTS 

2e VALUES OF VISCOSITY FOR EACH RUN WERE 
OBTAINED AT THE ARITHMETIC MEAN TEMPERATURE 
AND PRESSURE OF THE FLOWING GAS USING THE 
RELATIONSHIP SUGGESTED BY KESTING AND WANG. 
VALUES FOR THE COMPRESSIBILITY FACTOR WERE 
DETERMINED BY FIVE-POINT LAGRANGIAN 
INTERPOLATION (REFe 59) 


SUBROUTINES REQUIRED 


MINV 
HEE Ae ae ae oe fe ae fe a ae ak a 2h fe ae ak ae a 2 ae he a 2 ak ak oe ak a ak ak 2k ak a ak oe ak a a a a a ake ak ak 2 ak ak ok akc 


REAL*8 P(9093)9PT(3490)9A(393),AIN(3_3),AIN1 (3,3) 
1,AIN2(393) 9AN(3 93) 2AN1 (393) AN2( 343) 9 AA1 (393) ,AA2( 3,3) 
29B(3)7B1(3) 9B2(3)9Y(90),PE(90) »PW(90),D1(3),D2(3), 
36(3)9FsFKyFBByFBK 9K 9BB 9 BKy AAs QQ 9 VV _yPPE,yPPWyZZ(90) y 
40(90),VIS(90) ,DN1,DN2 ,DABS,yDSQRT,LMD1_,LMD2,_,NU,y SQ,SO1, 
5SQ2+TyDMAX,D(3),DLOGy,RE yRWyHyST(90) ,SQPE 

REAL*8 Z2(494) 9Z1 (494) 9XX (494) 90 (494) 9L95(4) 9X(16),¢ 
LDDsERR( 90) 9S (494) AN5 (494) 9 AN6(4,4) ,ERROR(90),PEE(90) 
2+ VARsDEXP yPROD1 » PROD2 »GSUMy SUM1 4 SUM2_,DNORM1 ,DNORM2 y 
3GNORM,COSG1 »COS21 »COS22 

DIMENSION L(4)9MV(4) 


FUNCTION AND DERIVATIVES FOR THE TWO-PARAMETER 
MODEL (KyB) 


F(KyBKsAA 9QQ 9 VV _PPE oPPW )= (PPW**2+1424.0*AA*QQ*DLOG(RE 
*/RW)/(H*K)— 

12.0*BK*(PPE—PPW))**0.5 

FK (KyBKy AA QQ 9VV_PPE 9 PPW)=0.5%( PPW** 24142420 * AA*0Q 
** DLOG(RE/RW)/(H* 

1K)-2.0*BK*( PPE-PPW ) )**(-0.5)¥*(-1424.0*AA*QOQ*DLOG(RE 
*/RW) / (H*¥K**2 ) ) 

FBB (Ky BK gAA 9 QQ 9 VV » PPE y PPW) =0.5% ( PPW**241424.0*AA*QQ 
**XDLOG(RE/RW) / 
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Al2 
MAIN LINE eee (CONT'D) 
1 (H¥*¥K)-—2.0*BK* (PPE-PPW) )**(-0.5)*(-2.0%*(PPE-PPW) ) 


FUNCTION AND DERIVATIVES FOR THE TWO-PARAMETER 
MODEL (KyBETA) 


F( Ky BByAA QQ 9 VV oPPE yPPW)=(PPW**24+1424.0%*AA*QQ*DLOG(RE 
*/RW)/(H*K) + 
13.1602D-12*BB*0.96 72*AA/VV *QQ** 2%*(120/RW-1.20/RE) /( H* 
**2))**O.5 

FK(KyBBe AA 9QQ9VV_PPE gPPW)=0.5%(PPW**¥24+1424.0*AA*QQ 
** DLOG(RE/RW) / (H* 
1K)+3.1602D-12*BB*0.9672*AA/VV *QQ**2*(1.0/RW-1.20/RE)/(H 
#2) )*K(-0 25 
2)%*(-1424. 0* AA*QQ*DLOG (RE/RW) / (H*K** 2) ) 

FBB(KsBB2AAsQQ_ VV _PPE yPPW )=0.5%*(PPW**24+1424.0* AA*QQ 
**DLOG(RE/RW)/ 

1 (H*¥K)4+3.1602D—12*BB*0 2.967 2* AA/VV¥(1.0/RW-12O0/RE) /( H* 
**2) )**K(-025)% 
2(341602D—1 2*0 696 72 *¥AA/VV *QQ ** 2% (120/RW-120/RE) /H¥**2 ) 


FUNCTION AND DERIVATIVES FOR THE THREE-PARAMETER 
SIMPLIFIED MODEL (K,yB,BETA) 


F1(KsBK BB ¢AA QQ yg VV gPPE gPPW )=(PPW**241424.0*AA*Q0 
**xDLOG(RE/RW) / (H* 
1K)+321602D—12*BB*0 «9672 *AA/ VV *QQ*¥*2*(1.20/RW-1-20/RE) /H* 
*%* 2—2.0*BK* 
2(PPE-PPW))**0.5 

FK1 (Ky BK oBB 9AA QQ 4 VV yg PPE gPPW ) =0 2.5% (PPW**24+1424.0%* AA* QO 
*%* DLOG(RE/RW) 
1/(H*¥K)+361602D-12*BB*0 967 2* AA/VV*QQ**2*(1.0/RW-1.0 
*/RE)/H**2~2.0*B 
2K*( PPE-—PPW) ) ** (-0.5)*(-1424.0*AA*QQ*DLOG(RE/RW) /( H*K* 
*%*2)) 

FBK( Ky BK 9 BB AA 9QQ 9 VV _9PPE yPPW ) =0.5* ( PPW**¥ 241424, 0* AA* QO 
*%* DLOG(RE/RW) 
1/(H*K)+3-61602D-12*BB *0 2967 2* AA/VV*QQ**2*(1.0/RW-1.0 
* JRE) /H**2~-2.0* 
2BK*( PPE—PPW) )**(-0.5)*(—-220*(PPE-PPW) ) 

FBB1(KyBK 9BB AA 2 QQ eo VV PPE yPPW)=0.5%( PPW**24+1424.0*%AA 
**QQ*DLOG(RE/RW 
1) /(H*¥K) +36 1602D-12*BB *0 6967 2¥* AA/VV *QQ**2%*(120/RW-1.0 
*/RE) /H*¥*2—2 20 ’ 
2*BK* ( PPE—PPW) )**(-0 25) * (3 61602D—12*0.9672*AA/VV*OQ¥*%2 
**(1.0/RW-1.0 
3/RE)/H**2) 
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A1l3 
MAIN LINE wee (CONT'D) 


READ(5,693) ICONT  yMyN 
693 FORMAT(316) 
999 READ(5,100) (B(1I),I=1 9M) 
100 FORMAT(4D16.6) 
WRITE(6,109) (B(I),1=1_M) 
109 FORMAT(/,2X,*INITIAL VALUE OF THE PARAMETERS', 
1/94X%4D16.6) 
READ(5,102) LMD1,NU,T 
102 FORMAT(3F10.4) 
IFC ICONT.EQ.1) GO TO 965 
READ(5,190) REyRWoH 
190 FORMAT(3D13.5) 
WRITE(6,975) RE yRW oH 
975 FORMAT(/,2X_9*CORE DIMENSIONS %5/,4X_'RE="yF8e4—/94Xy 
L*RW="5F8e49/94X9 'H=!9F864) 
READ(5,101) (PE(I),PW(1),ZZ(1),VIS(1),Q(1),1=1,N) 
101 FORMAT(5D13.6) 
WRITE(6,987) 
987 FORMAT(/,2X,"SET OF VARIABLES') 
WRITE(6,988) 
988 FORMAT(//910X_*PE',11X_"PW'y6Xy_ "MUXT*Z',10X_ "MU? 
Lo FEX, *O") 
WRITE(69105) (PE(I),PW(1),ZZ(1) sVIS(1),Q(1),1=19N) 
105 FORMAT(/,4X_5D13.6) 
DO 104 I=1,N 
104 Y(1I)=PE(1) 
EX=0. 
965 ISTORE=1 
LMD2=LMD1/NU 
52 IFCICONT.EQ.1) GO TO 521 
DO 4 I=1l,N 
DO 5 J=1_M 
IF(JeGTe1) GO TO 6 
P(I,J)=FK(B(1),B(2),ZZ(1)-Q(1) sVIS(1),PE(1) ,PW(I)) 
GO TO 5 
6 P(I,J)=FBB(B(1),B(2),ZZ(1),Q(1) »VIS(1),PE(1I),PW(I1)) 
5 CONTINUE 
4 CONTINUE 
GO TO 545 
521 DO 444 I=1,N 
DO 445 J=1l_M 
IF(J.GT.e1) GO TO 666 
P( I,J) =FK1(B(1)5B(2)2B(3)eZZ(1),Q(1),VIS(I),PE(I) 
*yPW(1)) 
GO TO 445 
666 IF(J.GT.2) GO TO 955 
P( I,J) =FBK(B(1)9B(2)2B8(3)9ZZ(1),Q(1),VIS(1),PE(I) 
*,PW(1I)) 
GO TO 445 
955 P(1,J)=FBB1(B(1) B(2) 5B (3)9ZZ(1),Q(1),VIS(1),PE(1) 
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Al4 
MAIN LINE eee (CONT'D) 


*yPW(I)) 
CONT INUE 
CONTINUE 


CONSTRUCT THE TRANSPOSE PT OF P AND COMPUTE A=PT*P 


DO 7 I=1,N 

DO 8 J=1l_M 
PT(JeI)=P( I,J) 
CONT INUE 
CONTINUE 

DO 9 J=1l_M 

DO 10 JJ=1_9M 
A(JeJJ)=0.- 

DO 11 T=1,N 

Al Js JJI=HA( So JIIFPT (JS 91D) *P (1, JU) 
CONT INUE 
CONTINUE 
CONTINUE 


COMPUTE VECTOR G GIVEN BY PT*(Y-F) EVALUATED 
AT THE PRESENT VALUE OF PARAMETER VECTOR B 


DO 12 J=1 9M 

G(J)=0. 

DO 13 I=1,N 

IF(ICONT.EQe+1) GO TO 449 

G(J)=G( J) FPT (Se TD) *IY (TIF (B(1),8(02),Z2Z(1),0(1T),VIS(T) 
*,PE(T),PW(1)) 

1) 

60 TO 13 

G(J)=GOS)+PT (S91) *(Y¥ (1) -F1(B(1),802),8(3),2Z(1),0(T) 
* gVIS(1I),PEC( 1), 
1PW(I))) 

CONTINUE 

CONT INUE 

IF(ISTORE~EQ.M) GO TO 550 


NORMALIZE A AND G 


DO 14 I=1,_™ 

DO 15 J=1_M 

IF(I.EQ-J) GO TO 16 

IF(I.GTeJ) GO TO 17 

AN(I,J)= AC I9d)/(DSQRT(A(Ly1))*DSQRT(A( Jad) )) 
GO TO 15 

AN(I,J)=1le 

GO TO 15 

AN( I,J) =AN( Jel) 
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A1l5 
MAIN LINE eee( CONT'D) 


CONTINUE 
G(1T)=G(1)/DSQRT(A(I,1)) 
CONT INUE 


COMPUTE AN+LMD¥*I FOR BOTH VALUES OF LAMBDA 


DO 21 IT=1,_M 

DO 22 J=1_M 
IF(IeLTeJeOReI-GTeJ) GO TO 23 
AN1(1,J)=AN(T,J)+LMD1 
AN2( 19d) =AN(1,J)4+LMD2 
GO TH 22 

AN1L( I,J) =AN(I4J) 
AN2(1,J)=AN(I9J) 
CONTINUE 

CONT INUE 

DO 976 IT=1,M 

DO 976 J=1_M 

AN5( I,J) =ANL(1I9J) 
AN6(1T,J)=AN2 (1 9J) 


SINCE (AN+LMD¥*I) IS STILL SYMMETRIC AND POSITIVE 
DEFINITE ONE CAN USE BROWN'S TECHNIQUE TO FIND THE 
INVERSE ¢ 


INDEX=1 
DMAX=0. 


SELECT THE ALGEBRAICALLY LARGEST DIAGONAL ELEMENT 


DO 25 I=1 9M 
IF(AN1(1,1)e¢LTe¢DMAX) GO TO 25 
DMAX=AN1 (1,1) 

Il=I 

CONTINUE 

AAL(II,TI)=-1-/ANI (11,11) 
AA2( II, 11) =-1./AN2(11,11) 


ALTER THE II(TH) ROW 

DO 18 J=1_M 

IF(II-EQ.J) GO TO 18 
AAL(IT1I,J) =-ANL (IIT ,J)*AAL(II,I11) 
AA2(I1,J)=-AN2(1I1,J)*AA2(II,I11) 


USE SYMMETRY TO GET THE SYMMETRIC PART OF THE II(TH) 


ian ve ~ iy 
by es ae 
1 
ae vr caged 
‘ fi : 
t 
. 
a, 
o 
Tee 


(Ch*FUUD bees att A] Am: | . - ie 
i : IUMETHOD: 7 , 

({ Py LAI THOZONE dont Tha Bak 

ai MI TMD © 


yee 
rad 
ae 


ALAA) IO WUIAV HTOG 804 TeOMseMA 3TURMOD 


ae 
- ed, ial 


hy ig: Ales p= 
at a i ade 


AViTI206 OWA DIATOMM¥A suETe 29 408 
IMT G14 OT Fuer ne F200 


\ 


™/ 


(HT)I} aHT 30 THAe J1ATaMMVE ant T39 Oo 


: i a : vt oF 


i 


CF ENO 


20 
19 


27 
26 


30 
29 


28 


MAIN LINE «ee (CONT'D) 


COLUMN 


AAL(JeTIT)=AAL(IIsJ) 
AA2( Je TIT) =AA2(I1,4J) 
CONT INUE 


ALTER ALL THE OTHER ROWS IN THE UPPER TRIANGLE OF THE 
MATRIX 


DO 19 IT=1_M 

IF(IeEQ.I1) GO TO 19 

DO 20 J=1_9M 

IF(Je-EQe-IIT) GO TO 20 

IF(JeLTe-I) GO TO 20 

AAL( I,J) =ANL (1 ¢J)-AAL(T TI )*ANI(J,T1T) 
AA2( TJ) =AN2 (19) )-AA2Z (Ts 1TI)*AN2( 5,11) 
CONT INUE 

CONTINUE 


USE SYMMETRY TO GENERATE THE LOWER PART OF THE MATRIX 


DO 26 I=1,M 
IF(I.EQ.I1IT) GO TO 26 
DO 27 J=1_M 
IF(JeEQ-11) GO TO 27 
IF(J.GE.1) GO TO 27 
AAL( I,J) =AAL(Je1) 
AA2Z( I,J) =AA2(J91) 
CONTINUE 

CONT INUE 
IF(INDEX-EQ.M) GO TO 28 
INDEX=INDEX+1 


RESET AN1=AA1 AND AN2=AA2 


DO 29 I=1_M 

DO 30 J=1,M 

AN1( I,J) =AAL(I4J) 
AN2(1,J)=AA2(1I5J) 
CONTINUE 

CONT INUE 

GO TO 24 

DO 31 I=1,M 

DO 32 J=1l_M 

AIN1L( I,J) =-AAL (I 9J) 
AIN2(1,J)=-AA2(I4J) 
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Al7 
MAIN LINE eee (CONT'D) 


CONT INUE 
CONTINUE 


COMPUTE NORMALIZED DELTAS USING THE INVERSES AIN1 
AND AIN2 


DO 33 IT=1,™M 

D1(1I)=0. 

D2(1)=0. 

DO 34 J=1 9M 
D1(1)=D1(1)+AIN1 (1,J3)*G(J) 
D2(1)=D2(1)+AIN2(1,J)*G(J) 
CONTINUE 

CONT INUE 


OBTAIN ACTUAL DELTAS 


DO 35 I[=1,_M 
D1I(T)=D1(1)/DSORT(A(T, 
D2(1)=D2(1)/DSQRT (A(T, 
G(1T)=G(1T)*DSQRT (A(T »I) 
CONT INUE 


OBTAIN THE SUM OF SQUARES GF THE ERRORS 
AT PRESENT VALUE OF THE PARAMETER VECTOR 


SQ=0. 

DO 36 I=1,N 

IF(ICONT.~EQ.1) GO TO 366 
SQ=SO+(Y(T)-F(B(1)5B(2),ZZ(1),Q(1 ),VIS(T),PE(T) 
*%yPW(1)))**2 

GO TO 36 
SO=SQ+(Y(1)-F1(B(1),B(2),B(3),ZZ(1),Q(1),VIS(I),PE(I) 
*_yPW(1)))**2 

CONT INUE 


COMPUTE NEW BETAS CONSIDERING THE ALTERNATIVE 
FOR PARAMETERS HIGHLY CORRELATED 


PROD1=0. 

PROD2=0. 

GSUM=0. 

SUM1=0. 

SUM2=0. 

DO 766 IT=1,M 
SUM1=SUM14D1 (1 )¥*2 
SUM2=SUM2+D2 (1) **2 
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MAIN LINE eee (CONT'D) 


GSUM=GSUM+G (I )**2 
DNORM1=DSORT (SUM1 ) 
DNORM2=DSORT(SUM2 ) 
GNORM=DS ORT (GSUM) 
PROD1=PROD1+D1 (1)*G(1) 
PROD2=PROD2+D2(1)*G(1) 
766 CONTINUE 
COSG1=2.0**0.5/2.0 
COSG21=PROD1/ (DNORM1*GNORM ) 
COSG22=PROD2/ (DNORM2 *GNORM ) 
DO 37 I=1_M 
B1i(1I)=B(1)+D1 (1) 
B2(1)=B(1)+D2(1) 
37 CONTINUE 
768 S$Q1=0. 
SQ2=0- 
DO 38 I=1,N 
IF(ICONT.EQ.1) GO TO 388 
§$Q01=SO0O1+(Y(1)-F(B1(1)9B1(2).ZZ(1),Q0(1),VIS(1I),PE(I) 
*yPW(1)) )**2 
§$O2=SO2+(Y(1)-F(B2(1),B82(2),ZZ(1),Q(1),VIS(1I),PE(T) 
%*%_PW(1)))**2 
GO TO 38 
388 S$Q1=SQ1+(Y(1)-F1(B1(1),B1(2),B1(3),2Z(1),Q(1),VIS(T) 
*,PE(1I),PW(1I))) ; 
1*%*2 
$O02=SQ2+(Y(1)-F1(B2(1),B2(2),B2(3)5ZZ(1),Q(1),VIS(T) 
*,PE(1T),PW(1))) 
1*%* 2 
38 CONTINUE 


CHECK FOR NEXT VALUES OF LMD1 AND LMD2 


IF(SQ2.-LE-SQ) GO TO 39 
1F(SQ2-GTeSQeAND-SQ1-LE-SQ) GO TO 40 
IF(SQ2.GT eSQeAND.SQ1.G6T.SQ) GO TO 41 
39 LMD1=LMD2 
LMD2=LMD1/NU 
GO TO 43 
41 IF(COSG21.LT.COSG1) GO TO 767 
LMD2=NU*LMD1 
LMDL=NU*LMD2 
EX=EX+2. 
GO TO 42 
767 =B1(1)=B(1)+0.4D OO*D1(1) 
B2(1)=B(1)+#0.4D O00*D2(1) 
GO TO 768 
40 DO 44 IT=1 9M 
D(1)=D1(1) 
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MAIN LINE eee(CONT'D) 


44 CONT INUE 
GO TO 46 


TEST FOR CONVERGENCE 


43 DO 45 IT=1 5M 
D(1)=D2(1) 
45 CONT TINUE 
46 DO 47 I=1,M 
DN1=T+DABS(B(I)) 
DN2=DABS(D(1)) 
IF((DN2/DN1).GT21-0D-06) GO TO 48 
ISTORE=I 
47 CONT INUE 
48 IF(SQ2.LE.SQ) GO TO 49 
DO 50 I=1 9M 
B(1)=B1(1) 
50 CONT INUE 
GO TO 52 
49 DO 53 I=1 9M 
B(I)=B2(1) 
53 CONT INUE 
GO TO 52 
550 IF(ICONT.~EQe1) GO TO 250 
WRITE(6,690) 
690 FORMAT(1H19//920X,*THE SOLUTION FOR THE 2 PARAMETERS 
* SIMPLIFIED MO 
1DEL IS GIVEN BELOW ®) 
WRITE(6,655) (B(I),1=1 9M) 
655 FORMAT(//515X,*LEAST SQUARE PARAMETERS ESTIMATES ARE 
* K="',D15.-6915 
1X, *BETA=' 5015-26) 
GO TO 656 
250 WRITE( 6,60) 
60 FORMAT(1H1 9//920X,*THE SOLUTION FOR THE 3-PARAMETERS 
* SIMPLIFIED MO 
1DEL. IS GIVEN BELOW') 
WRITE(6,65) (B(1I),IT=1 9M) 
65 FORMAT(//915X_,"*LEAST SQUARE PARAMETER ESTIMATES 
* ARE K="',D15.6,% 
15X-— *B=',D15.695X,"BETA=',D15.6) 
656 SQPE=0. 
DO 199 T=1,N 
IF(ICONT.EQ.1) GO TO 1990 
ST(I)= F(B(1) sB(2)9ZZ(1)9Q(1) yVIS(I) yPE(I) sPW(T)) 
GO TO 657 


1990 ST(1)=F1(B(1) 9B (2) 9B (3)9ZZ(1) ,Q(1T),VIS(T),PE(T),PW(T)) 


657 PEE(1I)=ST(T) 
ERROR(1)=PE(1)-PEE(I) 
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A20 
MAIN LINE e««-e(CONT'D) 


SQPE=SQPE+ERROR (I ) **2 
199 CONTINUE 
WRITE(6,805) 
805 FORMAT(///,5X,*OBSERVED PE',4X,'*CALCULATED PE',6X 
*y "ERROR' 414X,5'THE 
1DESIGN MATRIX P!) 
DO 809 [=1,N 
809 WRITE(6,803) PE(I),PEE(I) »,ERROR(I )o(P(1,J5),J=1,_M) 
803 FORMAT(/+3X96D15-6) 
VAR=SQPE/(N-M) 
VAR1=SQ/(N=-M) 
STDV=VAR**0 25 
WRITE(6,8000) SQPE, SQ 
8000 FORMAT(//,2Xs"THE SUM OF THE SQUARE OF THE ERRORS FOR 
* PREDICTING P 
LE 1§.-*» 202608 } 
WRITE(6,91) VAR 
91 FORMAT(//592X_s*VARIANCE=!,F1604) 
WRITE(6,68) STDV 
68 FORMAT(//92X9*STANDARD DEVIATION=!,F10.4) 
DO 907 IT=1,N 
907 ERR(I)=Y(1I)-ST(I1) 
WRITE( 6, 74) 

74 FORMAT(1H1 »//920Xe*THE A-MATRIX =PT*P IS AS FOLLOWS') 
DO 75 I=1,M } 
WRITE(65 76) (A(1 oJ) 9J=19M) 

76 FORMAT(//910X94D22.15) 

75 CONTINUE 
JJ=0 
DO 500 J=1_M 
DO 500 [=1,_M 
JJ=JSJI+1 

500 X{(JJ)I=A(TsJ) 

IF( ICONT.EQe1) GO TO 904 
CALL MINV(Xs29DD,L »MV) 
GO TO 906 

904 CALL MINV(X93sDD9L MV) 

906 WRITE(6,903) DD 

903 FORMAT(//+8X—e"THE DETERMINANT OF A=-MATRIX IS',D15.6) 
IFC ICONT-EQ.1) GO TO 7011 
KK=0 
DO 2000 J=1,_M 
DO 2000 I=1,M 
KK=KK+1 

2000 S(I,J)=X(KK) 

GO TO 7022 

7011 KK=0 

DO 7012 J=1,M 
DO 7012 I=1_M 
KK=KK+#l1 
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MAIN LINE e«ee(CONT'D) 


7012 S(1,J)=X(KK) 
7022 DO 701 J=1l_M 
DO 701 I=1,M 
FOX  CLIgSIEVARIFSATS J 
WRITE( 6,702) 
702 FORMAT(//920X_y*THE VARIANCE COVARIANCE MATRIX IS GIVEN 
* BELOW!) . 
DO 703 I=1l,M 
703 WRITE(6,704) (ClI9J),J=19M) 
704 FORMAT(//36X%94(3XsD15.26)) 
IF( ICONT.EQ.s1) GO TO 1077 
WRITE(6,107) (B(1),IT=1_M) 
107 FORMAT(//52X_9*PARAMETERS='912Xq9 "K="5D15.6y3Xy*BETA=! 
*,D15.6) 
GO TO 1080 
1077 WRITE(6,1078) (B(I),I=15M) 
1078 FORMAT(// 2X9 *PARAMETERS="912Xq *K=4,D15.6,y3X_'B=! 
*_D15-e693X_"*BETA=! 
1,D15.6) 
1080 DO 108 I=1l_M 
108 £95(1)=2.0*C(1I,1)**0.5 
WRITE(6,209) (L9O5(1),1T=19M) 
209 FORMAT(/92X9!95 PERCENT CONFIDENCE ',4X,D15.695X,D15.6 
* 9 6X_D15-6) 


CALCULATING THE LIKELIHOOD OF THE MODELS 


XLIKE=(2.0*3 2141 59*VAR ) **(-N/2)*DEXP(-SQPE/(2.0*VAR ) ) 
**0O 25 
1**(M/2) 
IF(ICONT.EQ.1) GO TO 8766 
WRITE(6,8755) XLIKE 
8755 FORMAT(//92Xy"LIKELIHOOD FOR THE 2 PARAMETERS MODEL 
* IS %,E15.6) 
GO TO 8799 
8766 WRITE(6,876) XLIKE 
876 FORMAT(//92Xs"LIKELIHOOD FOR THE 3 PARAMETERS MODEL 
* IS. ',E15.6) 
8799 ICONT=ICONT+1 | 
WRITE(6,8800) LMD1,LMD2 
8800 FORMAT(//52Xs"FINAL VALUES OF LAMBDA=',2D15.6) 
IF(ICONT.GTe1) GO TO 77 
M=3 
GO TO 999 
77 STOP 
END 
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SUBROUTINE MINV 


AE AE BS IE AS HS AS EIS A AC 


7 


te A, 4. A, J‘ J, 4 A 4, 
BE BE RA A AE EE EE TK IS EA OE IS BIE BIE OS OE IE OK IS OIC IC IK OK IS OYE IK SK OI 2K IS IS ac aie 2c Ik ais 


THIS SUBROUTINE FINDS THE INVERSE OF MATRIX A AND I 
DETERMINANT De 


REMARKS 

le MATRIX A MUST BE GIVEN AS AN INPUT VECTOR 
COLUMNWISE 

2e MATRIX A IS DESTROYED AND REPLACED BY THE 
INVERSE 


HEDIS TS FE AE IS BIS HE BIS IIS BC IS IS FES OIE DE FS TIE ZEISS IS OE SOS AIK IS 2K IS 2S DIS BIS OE IS OE OS AE IS OE IS IK SIE OK OE IS KC IK OK 


SUBROUTINE MINV(AsNeDol MM) 


REAL*8 A(16),D,BIGA,HOLD,DABS 
DIMENSION L(4)9M(4) 


SEARCH FOR LARGEST ELEMENT 


D=1. 

NK=-N 

DO 80 K=1,N 
NK=NK+N 
L(K)=K 
M(K)=K 
KK=NK+K 
BIGA=A(KK) 
DO 20 J=Ky,N 
I Z=N*( J-1) 
DO 20 I=K,N 
IJ=I1Z+I 
IF(DABS(BIGA)—DABS(A(IJ))) 15,20,20 
BIGA=A(IJ) 
L(K)=I 
M(K)=J 
CONTINUE 


INTERCHANGE ROWS 


J=L(K) 

IF(J-K) 35935925 
KI=K=N 

DO 30 I=1,N 
KI=KI+N 
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SUBROUTINE MINV eo (GONT SD) 


HOLD=—A(KI) 
JI=KI-K+J 
A(KI)=A(JT) 
A(JI)=HOLD 


INTERCHANGE COLUMNS 


T=M(K) 

IF(I-K) 459 45, 38 
JP=N%*(I-1) 

DO 40 J=1,N 
JK=NK+J 

JI=JP+J 
HOLD=-A( JK) 
A(JK)=A(J1) 
A(J1I)=HOLD 


DIVIDE COLUMN BY MINUS PIVOT(VALUE OF PIVOT ELEMENT IS 
CONTAINED IN BIGA) 


IF(BIGA) 48,465,48 
D=0. 

RETURN 

DO 55 I=1,N 

IF(I-K) 50,55,50 
IK=NK+I 
A(IK)=A(IK)/(-BIGA) 
CONT INUE 


REDUCE MATRIX 


DO 65 I=1,N 
IK=NK+I 

HOLD=A( IK) 
IJ=I-N 

DO 65 J=1,_N 
TJ=IJ+N 

IF(I-K) 60765,60 
IF(J-K) 62965762 
KJ=IJ-I+K 
ACIJ)=HOLD*A(KJ)4A(IJ) 
CONTINUE 


DIVIDE ROW BY PIVOT 


KJ=K-N 
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SUBROUTINE MINV eee (CONT'D) 


DO 75 J=1,N 
KJ=KJ+tN 

IF(J-K) 70,75,70 
A(KJ)=A(KJ)/BIGA 
CONT TINUE 


PRODUCT OF PIVOTS 


D=D*BIGA 
A(KK)=1-/BIGA 
CONTINUE 

K=N 

K=K=-1 

IF(K) 150,150,105 
I=L(K) 

IF(I-K) 1205120,108 
JQ=N*(K=-1) 

JR=N%*( I-1) 

DO 110 J=1,N 
JK=JQ+J 

HOLD=A( JK) 
JI=JR+J 
A(JK)=-A(J1) 
A(JI)=HOLD 

J=M(K) 

TF(J-K) 100,100,125 
KI=K=N 

DO 130 I=1,N 
KI=KI+N 
HOLD=A(KI) 
JI=KI-K+J 
A(KI)=-A( JI) 
A(J1I)=HOLD 

GO TO 100 

RETURN 

END 
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APPENDIX B 


SALIENT POINTS OF THE QUASILINEARIZATION AND 
DATA PERTURBATION TECHNIQUE FOR PARAMETER 
ESTIMATION IN SYSTEMS OF ORDINARY DIFFERENTIAL 


EQUATIONS 


A very powerful way of attacking the problem of 
computing re "best fit" parameters for a set of non- 
linear ordinary differential equations uses an adapta- 
tion of the Newton-Raphson-Kantorovich procedure, called 
quasilinearization, which regards the non-linear problem 
as a limit of a sequence of linear problems. Starting 
from an initial trial solution, convergence if it does 
occur, occurs rapidly; further, convergence is assured 
if the initial guess is "close enough" to the true 
solution. The difficulty of making a good initial guess, 
a serious limitation of the method in the past, has been 
in principle overcome by the algorithm presented in 
References (23, 24). When a given vector may not be 
within the domain of convergence of the original problem, 
it must be within the domain of convergence of some other 
derived problem. The latter may then be perturbed towards 
the original problem in a finite number of steps. In 
this case, new data points are derived; these are sub- 
sequently adjusted until they coincide with the original 


data. 
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The computer program given in Reference (23) 
has been slightly modified in order to compute the 
parameters working with the rigorous mathematical model 
for steady radial gas flow. It was also extended to 
calculate the reliability of the parameters and the 
expected likelihood of the model. A brief theory and 
a summary of the algorithm is given below. 

Assume that the behavior of a physical system can 
be adequately approximated by the following vector dif- 


ferential equation 


dy 
ar = f£ly,a,r) (B-1) 
where 
y = vector of state variables of order s; 
a = vector of constant system parameters of order 
qi 
r = independent variable, for example, radial 
distance. 
Suppose that we have n different boundary 
conditions - Y5'tQ)s J21L, 00.0 — for each of which 1s 


available observed data of some or all of the elements 
of y at some discrete values of r. 


The set of vector differential equations now 


becomes: 
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dy. 
—s = ~ 
S0aT er le ae (B-2) 


Bec. 4%) is specified 
cmee BL! Were cong ty 


ee dependent or 


Let Yi 5x be the observed ‘value of the i 
state variable at a radius Tak where the latter corres- 
ponds to the yee discrete value of the radial distance 


for the ce 


initial condition. 
By taking) the parameter vector a to be the solu- 


tion of 
a ee (B-3) 


the problem can then be formulated as a boundary value 
problem because of the missing boundary condition a(x.)- 


Hence, the system becomes 


dy. 

Saree i= = 
ae Bes) = pets eal (B-4) 
da 

7 Pah 0 O- as) of order gx 


Bes ao) is specified for j=1,2,...,n 


a (x) is unknown. 


Quasilinearization treats the non-linear problem 


as a limit of a sequence of linear problems, each of which 
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can then be handled by conventional means. Therefore, if 


(k) 


limit a =a (B-5,) 
k + @ 
(k) th’ a" 

where a represents the solution of the k linear 


problem in the sequence and a 1S che true solution, then 


hopefully a feasible method of approach would be obtained. 


Let 
Yi 
; Y2 
Zz = 
Yn 
a 
and 
£) (Zar) 
g(z,r) = : 
£,fZy art) 
QO 


Then, the system (B-4) becomes: 


ayo 2rd tik 
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zis a vector of order wx 1 
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For the (k+1) tA iteration, 
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= g ert) (z,r) = rau ’ (B=7) 


Using a Taylor's series expansion truncated after the 
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where a*) (x) is a Jacobian matrix of partial derivatives, 


that. is 
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Replacing Eq. (B-8) in (B-7) the following recursive 


equation is obtained 
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Equation (B-10) is now a non-homogeneous linear ordinary 
differential equation which falls in the category of 
linear boundary value problem. The general solution 

May be written as a linear combination of independent 
solutions corresponding to the complementary homogeneous 


equation 


az ‘Kt1) 


(k) z (kt1) 
dr = 


sail 1 (B-11) 


plus one particular solution corresponding to Equation (B-10). 


Hence, 
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ieee (B-12) 

or in matrix notation 
z(Kt1) (vy = yO ye a a ee) (B-13) 


where Asa re is the matrix (wx w) of independent 


vt oss aes k+1 
solutions with the initial condition y | Gee ys ae 


The vector a KF) (yy is the particular solution with the 
(k+1) 
(x) 


initial condition u ia 
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given in Equation (B-12) is in a form where the conventional 
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least-squares analysis can be applied. The vector 
et) represents the coefficients that are to be 
determined such that the sum of the square of the errors 
between the observed value and the value predicted by 
equation (B-2) is minimized. The elements of the 


(k+1) are contained in SMe Sa 


parameter vector a 
The iterative procedure continues with Equation (B-10) 
until convergence is reached. 

A more efficient computational scheme presented 
by Donnelly and Quon (24) takes advantage of the struc- 
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pure Of; the Jacobian, J which contains many zero 


entries. 


Writing Equation (B-11) in expanded form we 


obtain: 
(k+1) (k) (k+1) 
+1 a = Jai +1 
a |¥; = see Y- (B-14) 
dr ays —aj aA 
Yn e Jon —an Yn 
a 0. 0. 0. a 
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is a Jacobian matrix of partial derivatives with respect 


to the state variables and 
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is a Jacobian matrix of partial derivatives with respect 


to the parameters. 

(k+1) 
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and not to any other state varia- 


Since each vector y is coupled only to the 


parameter vector mt 
ble vector with a different initial condition, the 


general solution in Equation (B-13) can be written as 
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where the first term on the right hand side represents 
the solutions to the homogeneous equation and the last 


term a particular solution. 


The diagonal matrices pbktd) (j227294.3n) Sate 
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generated from the homogeneous equation 


ar (K+1) 
a. te ial nit eye est (B-18) 
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E4 ‘To! = J isxs) 3 
The matrix oi is generated from 
eae 
drank y a (B-19) 
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= (r,) ec) . 


The solution to Equation (B-19) is by inspection: 
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The particular solution u is generated from the 


non-homogeneous equation 
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The general solution in Eq. (B-17) can be written in 
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a) 


terms of each state variable vector y. as follows: 
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If we define a vector 
o (KEL) = plktl) (kt+1) 4 (k+1) ~ (B-24) 
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Equation (B-23) becomes 
yar x ae a Sue ee (B-25) 


Moreover, the problem has now been formulated in 


such a way that 
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integrating Equation (B-18) is no longer necessary 

; k+l). : : ; : 
since as ) in Equation (B-24) which is the particular 
solution starting with the known boundary condition, 


can be found by means of the following expression: 


dg (kt1) 
Screen eer etre pe HM 1,0 Zes~07 
with 

Bae (xO) = Ys (x) a 


Therefore, Equation (B-25) is now expressed linearly 
(k+1) 


Zn terms! Of the paraméter ‘vector-a alone and the 


least-square analysis can be carried on as before. 


Data Perturbation 


The standard procedure is to guess an initial 


trial vector ase) With this, Equation (B-4) can be integra- 


ted to obtain a predicted value i. EOreraL tT upOints at 


which observed data Yi 5K are available. If the initial 


trial vector a!) results in a set of a "close enough" 
to Visk then the quasilinearization technique will 
converge. If not, then the original problem is modified 
by perturbing the data and using pseudo-boundary condi- 


tions in the following way: 
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The perturbed data thus fall between the observed 


data and the predicted data with Yiak being the derived 


jth state variable at a distance eae where the latter 


corresponds to the «th discrete value of the radial 
distance for which the state variable was observed for 
the 4th initial condition. The choice of R = 1.0 forces 


* . . : “A . 
Yijk to be identical with the observed value Yisk and is 


equivalent to using quasilinearization directly. 


Once the derived problem is solved, the solution 


(0) 


and the proce- 


(oO) 


y* may be used as the initial guess y 
dure may be repeated a finite number of stéps until y 
is sufficiently close to the actual solution so that the 


actual boundary values y: may be used in place of the 


ijk 
artificial set of boundary conditions. 

A copy of the modified computer program to solve 
the non-linear ordinary differential equation which 


represents the rigorous mathematical model for steady 


radial gas flow, is given in the following pages. 
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MAIN LINE 


AEE BEE DIE HS BEA BIC BK DI A 2S BIC A AE 3 IC BK 3S BIC IC FE EE I aK IS 2 IC 3 I A KK KC 2S IC ISAK OK OK 2K 2K aK aK aK aK 
STEADY ISOTHERMAL RADIAL GAS FLOW IN POROUS MEDIA 


PARAMETER ESTIMATION IN SYSTEM OF FIRST ORDER 
NON-LINEAR DIFFERENTIAL EQUATIONS 


THIS PROGRAM CARRIES OUT PARAMETER ESTIMATION FOR A 
SET OF FIRST ORDER NONLINEAR DIFFERENTIAL EQUATIONS. 
PHASE I OF THE PROGRAM OBTAINS A GOOD STARTING VALUE 
FOR THE PARAMETERS THRU DATA PERTURBATION AND PHASE 
IIT EMPLOYS QUASILINEARIZATION SCHEME FOR THE FINAL 
CONVERGENCE. FOURTH ORDER RUNGE-KUTTA IS USED FOR 
INTEGRATION OF THE MATRIX DIFFERENTIAL EQUATIONS. THE 
PROGRAM ALSO COMPUTES THE RELIABILITY OF THE 
PARAMETERS AND THE EXPECTED LIKELIHOOD OF THE MODEL. 


INPUT DATA 

NE - NUMBER OF STATE VARIABLES. 

NK - NUMBER OF PARAMETERS. 

NDS - NUMBER OF DATA SETS EACH OVER A RANGE OF 
INDEPENDENT VARIABLE. 

TC - VALUES OF THE INDEPENDENT VARIABLE AT 


WHICH DATA IS AVAILABLE. IN THIS CASE, 

THE EXTERNAL RADIUS RE, FT. 

NUMBER OF DATA POINTS FOR EACH VALUE 

OF THE INDEPENDENT VARIABLE 

XO - INITIAL CONDITIONS FOR THE STATE 
VARIABLESe IN THIS CASE, THE WELLBORE 
PRESSURE PWy PSIA 

XB 1 - DATA MATRIX OF VALUES OF THE STATE 
VARIABLES CORRESPONDING TO THE VALUES 
OF THE INDEPENDENT VARIABLE TC. IN THIS 
CASE THE EXTERNAL PRESSURE PE, PSIA 


= 
Uv 
— 
G. 
! 


RMAX - UPPER LIMIT ON THE ITERATIONS EXPECTED 
IN THE QUASILINEARIZATION ROUTINE 
NC —- NUMBER OF INTERPOLATED POINTS FOR 
EACH DATA SET, =600 
KSI - REFERENCE INDEX FOR THE PARAMETERS 
EeGe le? eee Vs 
CHMAX —- MAXIMUM CHANGE ALLOWED IN THE PARAMETERS 
CHMIN — MINIMUM CHANGE ALLOWED IN THE PARAMETERS 
ERROR - CRITERION FOR CONVERGENCE 
RMAXI = INITIAL STEP SIZE 


INITIAL VALUES OF THE PARAMETER VECTOR 
CO(1) PERMEABILITY, MILLIDARCIES 
CO(2) SLIPPAGE COEFFe, PSIA. 

CO(3) INERTIAL COEFFe, 1/FT. 
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MAIN LINE eee (CONT'D) 


D1 - GROUP OF VARIABLES WHICH INCLUDES THE 
FLOW RATE FOR EACH RUN AND IS GIVEN 
IN SUBROUTINE SLOPE 
D2 - SAME AS D1 EXCEPT THAT INCLUDES FLOW 
RATE SQUARED FOR EACH RUN 
VECTOR OF THE NUMBER OF DATA POINTS 
CORRESPONDING TO VARIOUS SETS 
ICUTM —- UPPER LIMIT ON THE NUMBER OF STEPS 
ALLOWED IN DATA PERTURBATION 
LKJM - CONTROL PARAMETER 
1 PRINT THE RESULTS AFTER EACH 
ITERATION IN QUASI 
-1 PRINT AT EACH STEP.BOTH IN QUASI 
AND DATA PERTURBATION 
O PRINT ONLY THE FINAL RESULTS 
CONTROL PARAMETER FOR INTEGRATION 
SUBROUTINE. IF 1, NO PRINTING, 
OTHERWISE PRINT INTERMEDIATES 


NP 


si 


REMARKS 


le THE EXPRESSIONS FOR THE FUNCTION AND 
ITS DERIVATIVES WITH RESPECT TO THE STATE 
VARTABLES(JX) AND WITH RESPECT TO THE 
PARAMETERS(JK) SHOULD BE GIVEN EXPLICITLY 

~ IN SUBROUTINE SLOPE 

2 VALUES OF D1 AND D2 IN THIS PROGRAM 
CORRESPOND TO CORE SAMPLE NO. 112 WITH 11 
DATA POINTS 


SUBROUTINES REQUIRED 


QUASI 
GENER 
LEAST 
GAUSS 
SLOPE 
INTE 
MINV 
BED SCE He ae ai 28 2k of a a 2k a a afc a ak ak ak aK aK a a a aK 2k 2 ak akc ak oc 2 ok ak ak ake a a ak ak ak ak akc 2k akc 2 2k 2k ak 3k 


REAL*4 UB(05,05)5C(05) »X0(30,05),TC( 30,15) »XB( 30,15, 
105) 9H» XBAR( 30915305) 9XB1(30915,05) ysRPsRATIOygRMAXI y 
2C0(05) 4X(05) s,CHMAX9P(05)9T,SUMA,SUMB,ERROR 

INTEGER NE gNK yRMAXgNDSLL yy ICUTM,ICUTI sNO,NPTOT,NP( 30) 
LyNPIJ(30315) »NC (30915) syNPITOT (30) ,KSI(30,15,05), 
2M1leM2yNCJgJ ol oll eo JJ aK oS Lb pL KJUMyLKJI yg ICHECK,LKJS, 
BRMAXS,ICUTS 9 ML 

REAL*8 XDET(16)49L95(3)9VARC (494) 9SS(494) AMAT( 494) 9DD 
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MAIN LINE eee (CONT'D) 


DIMENSION L(4)_ MV(4) 

COMMON XB1,LTAR yVAR,AMAT 

COMMON /AB8/X0¢1 yNDS/AB3/C NE sNKyNO/AB4/UB 9X oP gHo T 
1yNCJyLL/AB1O/TC »XB yERROR gC HMAX yRMAXI KSI y NPIS yNCy NP, 
2NPITOT »RMAXgNPTOT gR oJ oM1l ye M2eT 19 JSJS9 Sy TCHECK/AB4S/ 
3LKIJMyLKJI/AB6/CO_ML 

READ(5y1) NE gNKgRMAX gNDS gLL y ICUTMyLKJM 
WRITE(6,9) 

FORMAT(/92Xy*CONTROL CARD FOR NUMBER OF STATE 
* VARIABLES, PARAMETER 

1S, ETC*) 

WRITE(691) NEsNKyRMAXgNDSyLL ye ICUTM,LKJM 
RMAXS=RMAX 

LKJS=LKJM 

ICUTS=ICUTM 

NO=1 

READ(5,11) (CO(II),TI=1,NK) 

WRITE(6,10) 

FORMAT(/92X,*INITIAL VALUE OF THE PARAMETERS') 
WRITE(6911)(CO(II),TIT=1y_NK) 

READ(5,11) ERROR,RMAXI »CHMAX,CHMIN 

WRITE(6912) 
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FORMAT(/s2X_y*CONTROL CARD FOR ERROR CRITERION, INITIAL 


* STEP SIZE*) 
WRITE(6511) ERROR sRMAXI »CHMAX,CHMIN 
FORMAT(5E16.6) 
NPTOT=0 
DO 101 I=1,NDS 
READ(5,2)(XO(1_9J)sJ=1,NE) 
WRITE( 6,3) 
FORMAT(/92Xy*INITIAL VALUE OF THE STATE VARIABLE') 
WRITE(692)(XO0(19J)9J=19NE) 
READ(5,1) NP(I) 
WRITE( 6,5) 
FORMAT(/+2X_9*NUMBER OF DATA POINTS IN EACH SET!) 
WRITE(6¢1)NP(1) 
M1=NP(T) 
READ(591) (NPIJ(I9J)9J=19M1) 
WRITE(6,13) 
FORMAT(/92Xy"NUMBER OF DATA POINTS AT EACH VALUE OF 
* THE INDEPENDEN 
1T VARIABLE'®) 
WRITE(6e1)(NPIJ( 1 9J)¢J=19M1) 
READ(592) (TClI9J)¢J=19M1) 
WRITE(6,90) 
FORMAT(/92X5*VALUES OF THE INDEPENDENT VARIABLE AT 
* WHICH VALUES OF 
1THE STATE VARIABLE ARE KNOWN!) 
WRITE(692)(TC(19J)9J=19M1) 
READ(5,1) (NC(I9J)9J=19M1) 
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MAIN LINE eee (CONT'D) 


WRITE(6,91) 

FORMAT(/52X5*NUMBER OF INTERPOLATED POINTS!) 
WRITE( 691) (NC (I,J) 9JN=1,M1) 

NPITOT(1I)=0 

DO 100 J=1,M1 

M2=NPIJ( I,J) 

NPITOT(I)=NPITOT(I)+M2 

READ(5591) (KSI(IsJ9K),K=1_9M2) 

WRITE(6,92) | 

FORMAT(/s2X3* INDEX TO CONTROL NUMBER OF STATE 
* VARIABLES *) 
WRITE(6¢1)(KST (1 939K) 9K=1,M2) 

READ( 5,2) (XBL (Il ed 9K) sK=1_M2) 

WRITE( 6993) 

FORMAT(/92Xs9"VALUES OF THE STATE VARIABLES AT 
* CORRESPONDING VALUES 

10F INDEPENDENT VARIABLE ®) 
WRITE(692)(XB1(19JN9K)9K=1,M2) 

NPT OT=NPTOT+NPITOT (I ) 

WRITE(6,22) NPTOT 

FORMAT(*OTHE TOTAL NOs OF DATA POINTS IS',15) 

FORMAT(16(1X,14)) 

FORMAT(5(1X,F13-5)) 

IF(NPTOT.LE2«500)GO TO 120 

WRITE(6921) 

FORMAT(*ONO.’ OF DATA POINTD EXCEEDS 500') 

STOP 

ICUT I=0 

ICHECK=1 

WRITE( 6,18) 

FORMAT(*OBEGIN PHASE I*) 

LKJM=LKJS 

ICUTM=ICUTS 

RMAX=RMAXS 

RP=0.0 

DO 107 I=1,NK 

C(1I)=CO(l) 

SUMB=0.0 

DO 103 I=1,NDS 

T=0.08551 

ML=I 

DO 104 I1T=1,NE 

X(I1)=XO(I,11) 

Mi=NP(T) 

DO 103 J=1,M1 

NC J=NC(I J) 

H=(TC(I,J)-T)/NCJ 

CALL GENER( ML) 

M2=NPIJ(I,J) 

DO 103 K=1,M2 
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MAIN LINE eee (CONT'D) 


S=KSI(1_,J 9K) 

XBAR( IJK) =X(S) 
SUMA=ABS(XB1 (1 yJ9K)—XBAR(I9J9K)) 
SUMB=SUMB+SUMA* *2 

IF (SUMA.GT.RP)RP=SUMA 
ICUTI=ICUTI+1 

WRITE(6914) ICUTI 
FORMAT('O',10X,y"*BEGIN STEP!,15) 
WRITE(6925) (1,CO(I),1=1,NK) 
WRITE(6,19) SUMB 
IF(ICUTI.LTe~ICUTM) GO TO 119 
WRITE(6y20) 

FORMAT(*OSTEP COUNT EXCEEDED') 
STOP 

RATIO=1.0—RMAXI/RP 
IF(RP.GTeRMAXI) GO TO 111 
WRITE(6917) 

FORMAT(*1BEGIN PHASE II*) 
RMAX=10 

RAT 1I0=0.0 

LKJM=IABS(LKJM) 

ICUTM=-ICUTM 

DO 106 I=1,NDS 

M1=NP(I) 

DO 106 J=1,Ml 

M2=NPIJ(I9J) 

DO 106 K=1,M2 


XB( Ig J9K) =XB1l (19 J eK) +RATIO*®(XBAR (1, 59K) -XB1(1,59K)) 


CONT INUE 

CALL QUASI 
IF(ICHECKeLT.O) GO TO 114 
IF( ICUTM.LT.O)GO TO 112 
SUMA=0.0 

DO 118 I=1,NK 
SUMA=SUMA+ABS ((C(1)-CO(1))/C(1)) 
IF(SUMAeLT e¢CHMIN) RMAXI=3 .0*RMAXI 
GO TO 110 

DO 115 IT=1,NK 

C(1)=CO( I) 

IF(LTAReEQe1) GO TO 1127 
SUMB=0.0 

DO 116 T=1,NDS 

ML=I 

T=0.08551 

DO 117 IT=1,NE 
X(IT1I)=XO(1I,I11) 

M1=NP(1) 

DO 116 J=1,M1 

NCJ=NC(I »J) 
H=(TC(1,J)-T)/NCJ 
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MAIN LINE eee (CONT'D) 


CALL GENER(ML) 
M2=NPIJ(I,9J) 
DO 116 K=1,M2 
S=KSI(1I_9J9K) 
116 SUMB=SUMB+(XB1 (I 9J3 9K) —-X(S) ) **2 
WRITE(6919) SUMB 


19 FORMAT('O®,9X_,*THE SUM OF THE SQUARES OF THE ERRORS 
* JS! 
1,E&14.4) 
1127 IFC ICHECKeEQ.0) WRITE (6,923) 
23 FORMAT(*O*,* CONVERGENCE TO THE DESIRED ACCURACY WAS', 
1'*NOT OBTAINED AFTER 10 ITERATIONS IN PHASE II*) 
WRITE(6924) 
24 FORMAT(*OTHE FINAL SOLUTION OBTAINED!) 
WRITE(6525) (1,CO(1),1T=1_NK) 
25 FORMAT(*O K',I12,'=',E16.6) 
16 FORMAT(*O AFTER*',I5," STEPS'*) 
JJ=0 


DO 8000 J=1,NK 
DO 8000 I=1,NK 
JJ=JJ+1 
8000 XDET( JJ) =AMAT(I,J) 
CALL MINV(XDET,3sDD9L_MV) 
WRITE(6,903) DD 
903 FORMAT(//,8Xe'THE DETERMINANT OF A-MATRIX IS',D15.6) 
KK=0 
DO 200 J=1,NK 
DO 200 I=1,NK 
KK=KK+1 
200 SS(I,J)=XDET(KK) 
DO 701 J=1,NK 
DO 701 IT=1,NK 
701 VARC( I,J) =VAR*SS(1_J) 
WRITE( 6,702) 
702 FORMAT(1H1»9//920X_'THE VARIANCE COVARIANCE MATRIX IS 
* GIVEN BELOW! ) 
DO 703 I=1,NK 
703) WRITE(6,704) (VARC(I9J),J=1,NK) 
704 FORMAT(//+6X94(3X9D15.26)) 
WRITE(6,907) (CO(I),T=1,NK) 
907 FORMAT(//92Xy*PARAMETERS '412X9'K=',E1526,3Xy_'B=! 
*,E15.693X9'BETA=! 
1,E15.6) 
DO 108 I=1,NK 
108 L95(1)=2.0*VARC(1,1)**0.5 
WRITE(6,209) (L95(1),T=1,NK) 
209 FORMAT(/+2X%9'95 PERCENT CONFIDENCE ',4X4D15.6,5X,D1526 
*,6X_,D15.6) 
STOP 
END 
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SUBROUTINE QUASI 


BS HE AE AL HE BE AE AE THE AE ETE TK DIS IES ISS FE IE DIK OK IC SE OE SIE HE BIS BE OIE DIS OE OK IK OK OIE OK IE OIC FE IS DK OIC IS 2K OC IS 2S IS 2K 2K 2S Kk 


THIS SUBROUTINE WORKS OUT THE PHASE II TOWARDS FINAL 
CONVERGENCE BY QUASILINEARIZATION AFTER GOOD INITIAL 
ESTIMATES OF THE PARAMETERS HAVE BEEN OBTAINED FROM 
THE DATA PERTURBATION SCHEME. 
MERE AEDS BIC BIE AEE BK DICE BKC AK IC AE DIC ACE BK aK 3K aK BKC AIS DIES 3K 3K BK BK aK IC 2S 2 2 2 i aK aK 2K aK 2 2 2 2 2 aK oe 2K aK 2k 


SUBROUTINE QUASI 


REAL*4 UB(05,05),X(05)_,P(05),TC( 30,15),X0( 30,05) 

1, XB (30915505) 9T 9HsC (05) »CR(05) ,ERRORy CHMAX gRMAXI 

REAL*4 BST(500,05) ,UST(500),Y0B(500),EXTER 

REAL¥*8 B( 500,05) ,Q(500) AMAT (4494) »VARC(4,4) 

INTEGER KS1I(30915,05) sNPIJ(30,15),NC(30,15),NP(30), 
INPITOT(30) »NE NK gRMAX gNDS gNPTOT pRoTgJgMl_9M2,INDEX, 
ZICOUNT sg IT I yJJeSebLb sNOeLKJMyLKJI y IT CHECK 

COMMON XB1(30915,05) yLTARsVAR, AMAT 

COMMON /AB6/CR/AB1/B »Q/AB8/XOqI sNDS/AB3/C_NEyNKyNO/ 
LAB4/UByX9P gHoT yNCJU gLL/AB1LO/TC ¢XBy ERROR » CHMAX gRMAXI 
29KSITyNPIJoNC yNPgNPITOT gRMAXgNPTOT Ro Jo Ml yo M2, 119 JSS 9 Sy 
ZICHECK/AB4/LKJM,LKJI 

LKJI=0 

SUMBB=1-0E 08 

DO 103 R=1,RMAX 

LKJI=LKJI+1 

INDE X=0 

DO 104 I=1,NDS 

ML=I 

S=R-1 

IF (LKJIeNE*«LKJM)GO TO 113 

WRITE(6,5)SyI,NPITOT(I) 

DO 112 I1=1,NE 

WRITE(696) II,XO(1I,I1) 

WRITE(698) (CCITT) ,TIT=15NK) 

WRITE(6,7) 

FORMAT(15H1FOR ITERATION 414 ,11H DATA SET 414," WITH ! 
lyl4,*POINTS'/*OTHE INITIAL CONDITION IS'/) 

FORMAT(1LOX,1LHX_I292H =F 1426) 

FOR MAT( 1HO 914Xq9LHT 9 8X 92HX1 9 8X 9 2HX2 4 8X 9 2HX 39 BXq 2HX4yq BX y 
1 2HX5 9 8X9 2HX6 9 BX gy QHXT 9 BX 9 2DHXB 9 BX g QDHX9g BXyq BHX10/) 

FORMAT(19HOTHE CONSTANTS ARE /10X,8E16.6) 

T=0.08551 

DO 105 I1T=1,NE 

DO 106 JJ=1 NK 

UB( IT ,JJ) =0-0 

X(I1)=XO(1I,I11) 
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SUBROUTINE QUASI «ee (CONT'D) 


105 P(II)=XO(I,I11) 
M1=NP(1) 
DO 104 J=1,Ml1 
NC J=NC (1 4J) 
H=(TC(1,J)-T)/FLOAT (NCJ) 
CALL INTE({R »ML) 
TF(LKJI-NEe«LKJM)GO TO 114 
WRITE(6,9) Ty(X(IIT),1T1T=1,NE) 
9 FORMAT (6X ,1H*¥,10F12.6) 
114 M2=NPIJ( I,J) 
DO 110 K=1,M2 
ICOUNT=K+INDEX 
S=KSI( IJK) 
YOB( ICOUNT) =XB(I9J9K) 
UST (ICOUNT )=P(S) 
Q( ICOUNT ) =YOB ( ICOUNT )-UST (IC OUNT) 
DO 110 JJ=1,NK 
BST( ICOUNT »JJ)=UB(SsJJ) 
110 B( ICOUNT, JJ) =UB(S,JJ) 
104 INDE X= INDEX+M2 
SUMB=0.0 
DO01116 T=1,NDS 
ML=I 
T=0.08551 
DO1117 IIT=1,NE 
ML=NP(1T) 
1117 X(I1)=xXO(1,11) 
DO01116 J=1,M1 
NCJ=NC( I,J) 
H=(TC(1I,J)-T)/NCJ 
CALL GENER(ML) 
M2=NPIJ( IJ) 
DO1116 K=1,M2 
S=KSI(1,J9K) 
1116 SUMB=SUMB+(XB1 (19d 9K)-X(S))**2 
WRITE(6,19) SUMB 
19 FORMAT(*O* ,9X_9*THE SUM OF THE SQUARES OF THE ERRORS 
* IS! 
1,E&14.4) 
IF(ReEQe-10) GO TO 1009 
IF(LKJMeEQeLKJI) LKJI=0 
CALL LEAST(NK gNPTOT) 
SUMA=0.0 
DO 108 II=1,NK 
108 SUMA=SUMA+ABS(C (II) -CR(II))/(ABS(C(IT))+0.1) 
IF(SUMB.GE-e-SUMBB)GO TO 1007 
SUMBB = SUMB 
1007 IF(SUMA.GTe«CHMAX) GO TO 116 
DO 107 I1=1,NK 
107 C(II)=CR(I1) 
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SUBROUTINE QUASI .«2e (CONT'D) 


IF(SUMA.GEeERROR)GO TO 119 
GO TO 3011 
CONTINUE 
IF(RMAXeLT.-10) GO TO 115 
GO TO 119 
WRITE(6512) 
DO 120 IIl=1,NPTOT 
EXTER=YOB(II)-UST(II). 
DO 121 JJ=1,NK 
EXTER=EXTER=BST (II sJJ)*C( JJ) 
WRITE(69¢11) EXTERsYOB(II) sUSTC(II)s (BST(T1,JJ) 9 JJ=l_ NK) 
FORMAT(1X,8E16.6) 
FORMAT(*1 COEFFICIENTS OF THE DESIGN EQUATION!//6X 
*, TY=BK+U+E 
1 WHERE *//7X9"Y IS THE OBSERVATION VECTOR! /7X,'B IS 


* THE DESIGN MA 


2TRIX*/7X_y*K IS THE PARAMETER VECTOR'/7X,'U IS 
* APARTICULAR SOLUTION 
3°/7Xe*E IS A ERROR VECTOR'//11X,'E',15X_*V¥'sg15Xy,'U! 
*10X,'*THE DESIG 
4N MATRIX B*/) 

MM=M1*NE*NDS 

VAR=SUMB/ (MM=NK ) 

DO1211 IHS=1,NK 

DO1211 JHS=1,NK 

AMAT (IHS yJHS) =0.0 

DO1211 KHS=1,MM 

AMAT( THS »JHS) =AMAT (THS » JHS)+B(KHS,THS)*B(KHS» JHS) 
CONTINUE 

WRITE(691214) VAR 

FORMAT(*-",*VARIANCE=',F16.4) 


CALCULATING THE EXPECTED LIKELIHOOD OF THE MODEL 


XLIKE=(2.0*3 «141 59*VAR ) ** (—MM/2)*EXP(-SUMB/(2.0*VAR ) ) 
**O 2 5%%*(NK/2) 

WRITE(6,876) XLIKE 

FORMAT(//92X_9*EXPECTED LIKELIHOOD OF THE RIGOROUS 
* MODEL IS 'y 

1E15.6) 

WRITE(6,1215) 

FORMAT('=*,#A=MATRIX !) 

WRITE(651213) ({(AMAT( IHS, JHS) »JHS=1_NK),IHS=1ly_NK) 
FORMAT ('=-' 4301424) 

LTAR=1 

GO TO 115 

IF(ReEQ210) ICHECK=0 

IF(ReEQe10) GO TO 118 

CONTINUE 

R=RMAX+1 
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SUBROUTINE QUASI «.2-(CONT'D) 


WRITE(6,10) RMAX 

WRITE(698) (CCII),IT1=1,NK) 
FORMAT(7HOAFTER 915,12H ITERATIONS) 
RETURN 

RMAXI=RMAXI*0.5 

DO 117 I1=1,NK 

CR(IT)=C(IT) 

ICHECK=-1 

RETURN 

END 
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SUBROUTINE GENER 


BE AE AE BIS BE IEC HE BEE FE SE IC AE BIS IE IE BE BE FE IE IS BIE IS OIE IS DIK IS DIC OK IS DIS OIC DIS OIC OIC DIS 3 OS SIC OS DIS 2 2K 2K 2S IC 2K oe 2c Ic 3c 


THIS SUBROUTINE INTERPOLATES THE DATA FOR USE IN 
QUAST AND INTE BY INTEGRATION OF THE DERIVATIVES 
USING FOURTH ORDER RUNGE-KUTTA INTEGRATION SCHEME. 


ARIK SE ICE SKC aK aK aK 3k aI. a A aK aK 2K I I 2 a aK ak a a akc a ak ak ak oe afc akg ak aca ake ake aie ale ak ac ac afc ake akc a 


SG C9 C2699 


SUBROUTINE GENER(ML) 


REAL*4 UB(05405)9P (05) 4X (05) yXA(05) KP (4,05) ¥G(05) 9T 

*»TAsH 

19JX( 05405) JK (05405) 9C(05) 

INTEGER NCJ yNEgNKoLL yNOgNoII oI gML 

COMMON LTAR 

COMMON XB1(30,15,05) 

COMMON /AB3/C NE NK yNO/AB4/UB 9X yP gHy TyNCJy LL/AB5/ JXy JK 

*y XA 9G 

DO 100 N=1,NCJ 

DO 101 Il=1,4 

GO TO(102,1035104,105),11 
102. ~TA=T 

DO 106 I=l,NE 
106 XA(I)=X(1) 

GO TO 107 
103. TA=T+0.5%H 

DO 108 I=1,NE 
108 XA(I)=X(1)+0.5*KP (1,1) 

GO TO 107 
104 DO 109 I=1,NE 
109 XA(1T)=X(1)+0.5%*KP (2,1) 

GO TO 107 
105 TA=T+H 

DO 110 I=1,NE 
110 XA(1)=X(1)+KP (3,41) 

107 CALL SLOPE(1,TAy—19ML) 

DO 101 I=1,NE 
101 KP(II,1)=H*G(1) 

T=TA 
| DO 100 I=1,NE 
100 X(T) =X(1)+(KP (1,1) +2.0*(KP (2,1) +KP (3,1) )+KP(4,1))/6.0 
RETURN 
END 
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SUBROUTINE LEAST 


HE FEBS PEPE BE PIS AE AE AE BK HE IE BIS DK AE IS IS FS OK IS OIC BIE IE EIS OK IS ZC OBIE DE IS OIC DIC IK 2K OIC 2K 2IC KK BIS BIS OK 3K IC 2S OKC 2K OIC afc 


THIS SUBROUTINE SETS UP THE DESIGN MATRIX FOR 
PARAMETER ESTIMATION FOR BOTH DATA PERTURBATION AND 
QUASILINEARIZATION. 


BE AS BRAC AS BS AE AEE BIS HS HE IS AS BS AIS OE IS OIE OIE IS OE OS BIE OK IS OK OI OIE BIC OIC OE 2S DIS 2K IK BK OIC 3K OIC DIS OK OK 2g IC OI IS 2K 2S 2K 2K 2K 


SUBROUTINE LEAST(N,M) 


REAL*4 X(05) 

REAL*8 A( 500,05) ,B(05,05),R(500),C(05) »SUMA,SUMB 
INTEGER IoJ9N9MoS 

COMMON XB1(30915,05), LTAR 
COMMON /AB2/ByC/AB6/X/AB1I/A,R 
IF(M.GT.N) GO TO 14 

IF (MeEQ.N) GO TO 17 
WRITE(6,92) 
FORMAT(18HJINSUFFICIENT DATA) 
STOP 

DO 15 I[=1,N 

C(1I)=R(1) 

DO 15 J=1,N 

B(IsJ)=A( I,J) 

GO TO 16 

DO 10 I=1,N 

DO 12 J=I,N 

SUMA=0.0 

DO 11 S=1,M 
SUMA=SUMA+A(S_1)*A(S9J) 
B(I,J)=SUMA 

B(J,I)=SUMA 

SUMA=0.0 

DO 13 S=1,_M 
SUMA=SUMA+A(S,_I1)*R(S) 
C(1)=SUMA 

CALL GAUSS(N) 

RETURN 

END 
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SUBROUTINE GAUSS 


HEHE AEA BE BIS BISA AE TK IC OS IS PIS FS AE BS IS BIS FS TS BIS OS OIE FE IE BIE AS AE ISK OE TK DIS BIE FE DIE IC OS OIE DIS IC AC OIE BIE OS OE IK OIE OIE OK ON 


THIS SUBROUTINE ESTIMATES THE PARAMETERS OF THE 
LINEARIZED MODEL USING GAUSS-SIDEL ELIMINATION. 


HS HE HESS HE HS FS HS BIS IE HE AK BIS OS CS BS IS AS OIE ONE IS OIE IS IIE THEE SIS IK FE ISO BS BK TC IC OE FS I IS IS OIC OK TIE IK AK OE OK OE OIC OC 


SUBROUTINE GAUSS(N) 


REAL*4 XX(05) 

REAL*8 A(05,05),R(05)4X(05)9S,U 
INTEGER TI(O5) gl aJaKeaNolhsMogHyMMyT 
COMMON XB1(30915,05),5 LTAR 
COMMON /AB2/AyR/AB6/ XX 
M=N-1 

WRITE(6932)M _N 

FORMAT(*0! ,214) 

DO 10 I=1,N 

II(I)=I 

IF(MZEQ.0) GO TO 24 

DO 11 J=1,_M 

S$=0.0 

DO 12 IT=J,N 

DO 12 K=J9N 

U=DABS(A(19J)) 

IF(U.LE.S) GO TO 12 

S=U 

L=I 

T=K 

CONT INUE 

IF(L~EQ.J) GO TO 19 

DO 14 I=J9N 

S=A(L,I) 

A(LyTI)=A(Jol) 

A(JsI)=S 

S=R(L) 

R(L)=R(J) 

R(J).=S 

IFC TSEQsJ) GO TO 13 

DO 20 I=J,N 

S=A(1I,T) 

AC(I,T)=A( IJ) 

A(I,J)=S 

I=I1(T) 

IT(T)=11(J) 

TIi(J)=I 

TF( DABS(A(J9J))-GTe1-0D-35) GO TO 15 
IF(JeEQGe1) GO TG 15 
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SUBROUTINE GAUSS) .e-(CONT'D) 


WRITE( 6,3) 

STOP 

MM=J+1 

DO 11 I=MM,N 
IF(DABS(A(1I,J))-LT-1-0D-35) GO TO 11 
S=A(JeJ)/A( Ts J) 
A(I,J)=0.0 

DO 16 K=MM,N 
Al I,K)=Al(JUsKI—S¥*A(I 4K) 
R(I)=R(J)-S¥*R(T) 

CONT INUE 

DO 17 K=1,N 

[=N+1-K 

S$=0.0 

IF(I~EQ.N) GO TO 17 
MM=1I+1 

DO 18 J=MM,N 
S=S+A(I¢J)*X(J) 
X(T)=(RCII)-S)/A(1I2T) 
DO 21 I=1,N 

K=I1I(1) 

IF(I-EQ.K) GO TO 21 
S=X(K) 

X(K)=X(1) 

X(I)=S 

TI(1)=11(K) 

IIT(K)=K 

CONTINUE 

DO 23 I=1,N 
XX(1)=X(1) 
FORMAT(1L6HJMATRIX SINGULAR) 
RETURN 

END 
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SUBROUTINE SLOPE 


we sk shee ote ate he oe oe eo ok oi oe se ok ok oe ok oi se oe ok oe ok eo i ok ok ek oe ok ek ek KK KKK KOK KK KKK 
le a le al li let le le a al le le i ls ls ale li ae ae oe al le le ale le le ale ls le ole le i ae ls le ie i le le ol le be a oe ee oe 


THIS ROUTINE CALCULATES THE DERIVATIVE GF THE 
FUNCTION BOTH WITH RESPECT TO STATE VARIABLES AND THE 
PARAMETERS. 


BE OR AS BE OE OE OK SE TK AE OK OK OK OS OK OK OK OK OK AE OK OK OK OK OE OK OK OK OK OK OR KOK OS OK OS OK OK OK OK OK OK OK OR 2K OK OK OK OE OK OK OK 


SUBROUTINE SLOPE(R,T,I JACK ML) 


REAL*4 X(05) 4JX(05,05),JK(05,05),6(05),T,C(05), 
1X0(30,05) 

REAL X1¢X29K19K259K3sKE1,KE2,KE3 
INTEGER ReNEsNKeNOgIIsNDS,I JACK, ML 
INTEGER I,J 

COMMON XB1(30315,05),LTAR 

COMMON /AB3/CeNE NK sNO/AB5/ JX op JK 9X eG/AB8/X0e11,NDS 
GO TO (20921922323924925%326327328329330), ML 
D1=O.277197E 03 

D2=0.142567E-11 

GO TO 90 

D1=0.357607E 03 

D2=0.238864E-11 

GO TO 930 

D1=0.734392E 03 

D2=0.100444E-10 

GO TO 90 

D1=0.113607E 04 

D2=0.239352E-10 

GO TO 90 

D1=0.218605E 04 

D2=0.882131E-10 

GO TO 90 

D1=0.496934E 04 

D2=0.455561E-09 

GO TO 90 

D1=0.2111042E 05 

D2=0.227560E-08 

GO TO 90 

D1=0.187636E 05 

D2=0.64894 7E-08 

GO TO 90 

D1=0.235629E 05 

D2=0.102525E-07 

GO TO 90 

D1=0.297832E 05 

D2=0.163408E-07 

GO TO 930 
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SUBROUTINE SLOPE ...(CONT'D) 


D1=0.389726E 05 

D2=0.279409E-07 

DO 16 IT=1,NE 

IF(ABS(X(1)).LE.1.0E 05) GO TO 16 
WRITE(6917) 

STOP 

CONTINUE 

FORMAT(*OSTATE VARIABLE BOUND EXCEEDED!) 
K3=C(3) 

K2=C (2) 

K1=C(1) 

X1=X(1) 

GO TO (11,512) ,NO 

DO 13 T=1,NE 

G(1)=0.0 

DO 14 J=1,NE 

JX(1,J)=0.0 

DO 13 J=1,NK 

JK (I,J) =0.0 

NO=2 

G(1)=D1L/(K1*T* (X14+K2))+D2*K3/( T** 2X1) 
IF(IJACKeLT.O) GO TO 15 

JXC Ly 1)=—(DL/ (KL *T*(X14K2)**2)+4D2*K3/ ( THE Q2*X LEZ) ) 
JK(1,1)=-D1/(K1**2*T*(X14+K2) ) 
JK(192)=-DL/ (KL *T*(X14+K2) **2) 
JK(1,3)=D2/(T**2*X1) 

RETURN 

END 


B28 


pe ty } ie iw 2 - 
Rist ‘ eee, 4): 
el if Os tad 
a 
(C'TMGS) +6. 9HOUe aMPTUCRBUe nt: 


20 3esTe8e.0=: ‘ 
eke oF 0 
21 OT 08 120 ie ted. ery Pry 


ant 


ny 
(ao aaaxa anund 3J8A1AAV arate 


ues qyeeiey . 


n ne ian s (2 fx 
uy iy? s 
fe Play al ’ ila PY 
ms “ ™ & et ; 

F CM: “re Pie ve hy 

b hie eh Anus J Ae. 
ee ee ae F 

a i Ae hs 


B29 


SUBROUTINE INTE 


HE DEIR FE TK FS IE SA AE FS OE AS IE AE FE FIC IE IK AKC OK IS OK DISC DIC DIS OK IS OIC IK DIS SIE KK OIC OK IS OK OK IS OK OK Ig Ik IS BIE 2c ois 2k 2K Ie 3K 


THIS SUBROUTINE INTEGRATES THE MATRIX DIFFERENTIAL 
EQUATION FOR QUASILINEARIZATION AND OBTAINS A 
PARTICULAR SOLUTION. 


HEAR AEE AE AE FE AE A AEE EAE FSS IK AK IC IE IE IK FE IC DIE OE OK OI OK DK OIE OI IC IC 2S IK OIC IS OIC IS DIC 2K IS OIC 2K aie 2 2c 2s 2k 2g ak aK 


CED OE) Ge 


SUBROUTINE INTE(R ML) 


REAL*4 UB(05,05),P(05),X(05) ,UBA(053,05),PA(05), 
1XA(05)9KX(4505) ¥KUB (4505505) 9KP (45905) 6(05)9Ty TAH, 
2SUMA 9 SUMB 9 JX (05505) 9JK(05,05),C(05) 

INTEGER NCJgRolgJolTITeNEgNK glob by SoNyNOygLKJM,LKJI 

COMMON X81(30915,05)_y LTAR 

COMMON /AB3/C NE NK yNO/AB4S/UB 9X 9P gHy TeNCUyLL/ABD/IUX g 
1JK yXA_gG/AB4/LKJMyLKJI 

L=0 

DO 100 N=1,NCJ 

DO 101 I1=1,4 

GO TO (102,103,104,105),I1I 

102 TA=T 

DO 109 T=1,NE 

PA(T)=P(1) 

XA(1)=X(T) 

DO 109 J=1,NK 

109 UBA( I,J) =UB(I J) 

GO TO 110 

103 TA=T+0.5*H 

DO 113 I=1,NE 

PA(I)=P(1)+0.5*KP(1,1) 

XACT)=X(1)+0¢5¥*KX(1,91) 

DO 113 J=1,NK 

113 UBA(I,J)=UB(1,J)+0.5*KUB(1,1,J) 

GO TO 110 

104 DO 114 T=1,NE 

PA(T)=P(1)+0.5*KP (2,1) 

XA( T)=X(1)+0.5¥*KX(2 91) 

DO 114 J=1,NK 

114 UBA(I,J)=UB(1I9J)+0.5*KUB(2914J) 

GO TO 110 

105 TA=T+H 

DO 117 T=1,NE 

PA(T)=P(1I)+KP(3,1) 

XA(T)=X(1)+KX(3,1) 

DO 117 J=1,NK 

117 UBA( I,J) =UB(1,J)+KUB(391,J) 
110 CALL SLOPE(R »TAs1 5ML) 


STL. aul ToQReve =n 

rm i a 7 
} Aa ae 
Be A A RH cKennaecenaeessaemme 


JATTMSH3IIIO KISTAM FHT Z3TARORTHI aut TuOREUz, ont | 
\ 2ATATaO GWA WOLTAS TAA IMT JT2AUO a 


Terry tT: SHR ESSAA ASSIA ESR 


+e (2OVA% 1205 20) ABUy (20) X_ 209 té 

sh ae LEME ST TE eee tr) 
(EDV0¢( UO, 20d HLel 
menneenriniens 


XL \e00\1d gL Tee Spe BUNASANO he 


TAD me 2 sas 
‘ 


TS 
118 


L22 
121 


130 
120 
101 


129 


100 


SUBROUTINE INTE eee (CONT'D) 


DO 115 T=1,NE 

SUMA=G(1) 

KX( 11,1) =H*xSUMA 

DO 120 IT=1,NE 

SUMA=G(1) 

DO 121 J=1,NK 

SUMB=JK(1I9J) 
SUMA=SUMA-JK(1,J5)*C (J) 

DO 122 S=1,NE 
SUMB=SUMB+JX(1,S)*UBA(S,J) 
KUB( ITI,1J) =H*SUMB 

DO 130 J=1l,NE 
SUMA=SUMA+JSX(1_J)*(PA(J)—-XA(J)) 
KP(T1,1)=H*SUMA 

CONT INUE 

DO 127 I=1,NE 
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P(I)=P(T)+(KP(1,1)4+2.0*(KP(2,1)+KP(351))+KP(4,1))/6.0 


DO 127 J=1,NK 


UB(I,J)=UB( I ,J)+(KUB(1,1,J3)+2.0*(KUB(2,1,J)+KUB(3,1 


*9J))+KUBI4 eI, 
1J))/6.0 


ITF(ABS(UB(I,J))-LT2-1-0E 50) GO TO 127 
WRITE(692) 


FORMAT(*OTHE INTEGRATION OF THE FUNDERMENTAL MATRIX 


* IS', 


1' UNBOUNDED ® ) 
STOP 

CONTINUE 

DO 129 T=1l,NE 


X(T )=X( 1) +(KX(1,1)42 -0*(KX( 2,1 )4+KX(351))4+KX(4,1))/6.20 


T=TA 

L=L+1l 

IF(L~NE~LL)GO TO 100 

L=0 

IF(LKJIeNEe«LKJM) GO TO 100 
IF(NeEQe-NCJ) GO TO 100 
WRITE( 691) Ty (X(1),T=1,NE) 
FORMAT(7X,10F12.6) 

CONT INUE 

RETURN 

END 
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APPENDIX C 


ANALYSIS OF THE STEADY RADIAL GAS FLOW 


Out of the four mathematical models listed on 
this analysis three are given in albegraic form and 
one in differential form. For both types of non-linear 
models the derivatives of the function with respect to 
the parameters must be known. Therefore, the following 


expressions for each mathematical model were obtained. 


Model 1 
When slippage is considered and inertial effect 


is neglected, i.e. 8 is zero, the following model was 


derived: 
2 ieee Havg Tavg Zavg 25 ry : O35 
Peg ek ey ake ee Cre Pw 
(e= 1) 
or 
Boe ¥ (Qa. a) 
where 
k 
a = e 
b 


Therefore, if the expression in brackets in Equation (C-1) 
is called "VAR 1"; the expressions for the derivatives 


can be written as 
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Model 2 


When slippage effect is neglected and inertial 


effect is considered, we have the following model: 


1,424 y ik Z Q 
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Let the expression in brackets in Equation (C-4) be called 


"VAR 2", -Hence, the expressions for the derivatives 


are: 
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aor —0.5 ie" a 
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Model 3 
The simplified three-parameter model was 
Stated as 


2 1,424 
p_= [2 = 2b (p, Teo ) + tava “avg Zavala an &) 
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32.1602-% 10 BG ee Z ay Q 1 1 O.5 
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h Ww e 
(C-7) 
or 
res 8 (Q,. a) 
where 
k 
a= b < 
8 


Let the expression in brackets in Equation (C-7) be called 


"VAR 3". Hence: 
i 1,424 A*Q r 
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Model 4 
The rigorous three-parameter mathematical model 


was derived as 


' J -12 
dp _ vd2 Wavg Tavg Z oy Q, : b.5801.*% 20 6G ay: Zavg 
dr alk (DS) h*r*p 
(C=2TL) 
or 
Dp peeme mals Savas 
dr Eetp +b) r7p 


which can be written as 


dp : 
ar a $(Q, Peri) 
where 
k 
a= b Z 
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Thus, the expressions for the derivatives are given by 
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c) CE ee 1 Me (C-14) 
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the derivative of the’ function with respect to the state 


variable. Hence, 
D Do 
d) ae = - +, s 5 : (C-15) 
BP rka(p 'iod np 


Input data and results for all the core samples 


using each model, are presented in the following pages. 
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MEE IE ICE SC A A a af 2 OI I IC a a aR af 2A 2 a aK aI aK aK aI aK aK aK ak ak ak af ak ak ak aK ak a akc aka ak ak ak ae ak 


INPUT DATA FOR CORE SAMPLE NO.1 


RUN 1 
PE Pw VIS*T*Z VIS QG 
(PSIA)  (PSIA) (CP=DEG.R) (CP) (MSCF/DAY) 
SEA EK aK afc aK aK ae a a aK IC IC 9K OK aK IE aK 2 IS aK ICI aI CC af af a aE aa a aK a fe af af ak ak ake akc ak 
15.385 13-617 0.942D 01 0O.177D-01 0./710D-03 
16.819 13.617 0.943D O01 O.177D-01 0.132D-02 
18.943 13-530 0.950D 01 0O.178D-0O1 0.232D-02 
252022 13.729 0O.936D O1 0.176D-01 025/70D-02 
29.099 132509 0O.941D O1 O.177D-01 0.833D-02 
292580 13-626 0.949D 01 O.17/7D-01 0.857D-02 
33.2598 13-626 0.949D 01 0.178D-01 0.115D-01 
34.2955 132735 0O.935D 01 O0O.176D-01 0.2127D-01 
38.565 132623 0.950D 01 0O.178D-01 0.154D-01 
42.2690 13.633 0.950D O01 0.176D-01 0.189D-01 
43.2076 13-724 0.934D 01 0O.176D-01 0.198D-01 
48.656 13.2724 0.933D O01 0O.176D-01 0.251D-01 
532656 132753 0O.933D 01 O0O.176D-01 0.304D-01 
58.656 13.772 0O.933D 01 O0O.176D-01 0.359D-01 
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RESULTS USING MODEL 2 


LEAST SQUARE PARAMETERS 


K =10.468 MD. 
BETA=0.737D 10 1/FT. 


ERROR VECTOR 
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RESULTS USING MODEL 3 


LEAST SQUARE PARAMETERS 


K 
B 


=8.668 MD. 
=4.177 PSI 
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BETA=0.446D 10 1/FT. 


ERROR VECTOR 


(PSTA) 


-0.1160-01 
0.146D-01 
0-359D-01 
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0.255D-01 

-0.149D-01 
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-0.501D-01 
0.887D-01 
0.134D 00 
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-0.2121D 
-0.154D 
-0.157D 
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CORRELATION MATRIX 
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FABLE C—2ED 


BEI AED BK 2 OIC I KE IK IE KCK FIC OK IC aK 9K OK BK DK aK 2K 
RESULTS USING 
LEAST SQUARE PARAM 
K =8.756 MD. 
B =3.993 PSIA. 
BETA=0.-408D 10 1/F 


ERROR VECTOR 


ETERS 


Te 


DESIGN MATRIX 


Cro 


(PSTA) X 
BE FE AS FS BE IE AS OE IE OK BSS FE OS BIS OH BIS BIS OS FASS OE IS KE BIS FE OE OE DIS OE ISIS IC BIE OS OIE A IS OE BIC KE DK IS OKC SIS OIC OS 3} 
-0.582D-02 OetSS0 OO. —Os9P50-0b 06883D-12 
0.154D-01 “O63350 00 <“OeF53D 00. 06283D-11 
0.333D-01 “G<65390 00. “042330 00. .0.793D-11 
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-0.438D-01 “Ost700 OF, “045210 00 04131D-09 
0.794D-01 “0.1926 02. -096530 00 0.1770-09 
0.119D 00 =6 2160 ‘GF. =—O2.56E0D 00 04242D-09 
-0.134D 00 “O32190 O01 =<-O2560D 00 0.258D-09 
-0.169D 00 -0.249D 01 -0.604D 00 0.368D-09 
-0-431D 00 -0.-275D 01 -0.618D 00 0.486D-09 
0.393D-01 “022990 02 “O046Z27D 00 0.618D-09 
-0.107D-02 “0.3220 OF ‘*04631D 00 0.7 700-09 
SUM OF THE SQUARES OF THE ERRORS=0.052 
ERROR VARIANCE =0.004 
EXPECTED LIKELIHOOD=0.119D 09 
DETERMINANT OF A MATRIX=0.2123D-18 
VARITANCE-COVARIANCE MATRIX 
0.614D-01 -0.167D 00 0.129D 09 
-0.167D 00 0.456D 00 -0.345D 09 
061290 09 =-06345D 09 0.280D 18 
CORRELATION MATRIX 
1.000 -0.998 0.984 
-0.998 1.000 -0.966 
0-984 -0.966 1.000 
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TABLE C=-2A 


RAE AS 3S 2K >| 38 3K 3K 3K 3K HE AE AK 3K 3K OK x* HK OK DK DIK AE IK HE IK 3 OK I 3K 


RESULTS “USING MODEL 1 


Jo she 


LEAST SQUARE PARAMETERS 


K=5.772 MD. 
B=18.623 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSIA) x 

BE AR AS FS AR AE I EAE FS IC DIS SEE IE OK BIE SE IE OK OK BIS OI OIE DIE OIC 2 21S 2K I Ig 2K IS aK OC Ig a aK IS 2 a aig ak ois ak ak ok ale ak ok 
0.132D 01 -0.290D 01 -0.477D 00 
0.830D 00 -0.448D 01 -0.622D 00 
0.971D-01 -0.555D 01 -0.683D 00 
-0.101D 00 -0.620D 01 -0.716D 00 
-0.419D 00 -0.676D Ol -0.738D 00 
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0.114D 01 -0.115D 02 -0.873D 00 


SUM OF THE SQUARES OF THE ERRORS=6.412 
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VARITANCE-COVARIANCE MATRIX 
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-0.177D 00 0.196D Ol 

CORRELATION MATRIX 
1.000 -0.984 
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RESULTS USING MODEL 2 


LEAST SQUARE PARAMETERS 


K  #10.012) MD. 
BETA=0.545D 10 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSTA) x 

HE AE BE AS IE BIE IE IK IE BIS OE OK FE IE BS OS OIE DIK OS IS OIE DIK IK OIE OK OE DIE OK IK DIK 2S DIK IK OS BIS IE OK DIK OI OK IK OS OIC BIS SIS 2 OI 2S BIC OI 3s 2 
-0.579D 00 -0.893D 00 0.159D-11 
-0.443D 00 -0.144D 01 0.789D-11 
-0.367D 00 -0.182D 01 0.192D-10 
-0.140D 00 -0.206D 01 0.309D-10 
-0.761D-01 -0.226D 01 0.451D-10 
0.777D-01 -0.245D 01 0.628D-10 
0.906D-01 -0.263D 01 0.852D0-10 
0.291D 00 -0.280D 01 0.111D-09 
0.232D 00 -0.296D 01 0.144D-09 
0.212D 00 -0.312D 01 0.182D-09 
0.204D 00 -0.326D O01 0.224D-09 
0.118D 00 -0.339D 01 0.272D-09 
-0.120D 00 -0.353D O01 0.331D-09 
-0.537D-01 -0.366D 01 0.393D-09 
-0.309D 00 -0.377D 01 0.461D-09 


SUM OF THE SQUARES OF THE ERRORS=1.058 
ERROR VARIANCE=0.081 
EXPECTED LIKELIHOOD=0.822D-01 
DETERMINANT OF A MATRIX=0.2174D-16 
VARTANCE-COVARIANCE MATRIX 

0.318D-02 0.369D 08 

0.369D 08 0.547D 18 
CORRELATION MATRIX 

1.000 0.885 


0.885 1.000 
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ste se se ve le se >. 
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RESULTS USING MODEL 3 


LEAST SQUARE PARAMETERS 


K 
B 


=8.265 MD. 
=5.2599 PSI 


Ae 


BETA=0.403D 10 1/FT. 
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y >! ~ - le 
SBS EAE AE AK AS OE FE IS IK OC IS 2S 2S 


ERROR VECTOR DESIGN MATRIX 
(PSTA) x 
DE IK 2K DIE IK IS AE IIS BIS BK BK HIE BS IS IS I DK OK OIE DIS DIC OC 2K DIE SIE IE IK OIE OK OK DIS OE OK AIK OIC DIK OK DIK DIS 2K OYE DIK DIS DC IK DK IK OK 3K 2 2K > 
0.560D-01 -0.134D 01 -0.452D 00 0.342D-10 
0.4/72D-01 -“0.214D OL -0.-608D 00 0.121D-09 
-0.105D 00 9269) O04 +-0.4680D 00 0.239D0-09 
-0.585D-02 ~0.2303D 01 -0.718D 00 0.341D-09 
-0.622D-01 ~0.332D 01 -04743D 00 0.452D-09 
0.463D-02 -0.359D 01 -0.765D 00 0.576D-09 
-0.601D-01 -0.385D 01 -0.783D 00 O./20D-09 
0-109D 00 -0.409D 01 -0.800D 00 0.874D-09 
0.262D-01 -~0.433D 01 -0.-812D 00 0.105D-08 
0-150D-01 -0.457D 01 -0.824D 00 0.125D-08 
0.516D-01 -0.477D O01 -0.834D 00 0.145D-08 
0.258D-01 -0.498D O01 -0.843D 00 0O.166D-08 
-0.122D 00 -0.518D 01 -0.849D 00 0.191D-08 
0. 745D-01 -0.537D O01 -0.858D 00 0.216D-08 
-0.409D-01 ~0.555D O01 -0.863D 00 0.242D~-08 
SUM OF THE SQUARES OF THE ERRORS=0.062 
ERROR VARIANCE=0.005 
EXPECTED LIKELIHOOD=0.314D 08 
DETERMINANT OF A MATRIX=02237D-16 
VARTANCE-COVARIANCE MATRIX 
02115D-01 -0.431D-01 0.120D 08 
-0.431D-01 02-165D 00 -0.440D 08 
0.120D 08 -0.440D 08 G2I35D Lt 
CORRELATION MATRIX 
1.000 -0.989 0.963 
0.963 -0.932 L006 


— 


36~5 400aT ’ 


ova ai lnc ailment lai a 
& J500M OMIl2y 2h sueaR 


2RITAMASAS BARUOR TRAD 
| Ce ae 
ihe CR Rete: et 
sTAVE Of C€OA,02AT 98 : 
KAT AM WOTRIO ey 


: x 
| sactesessp pebilpadaieatdleenaaeebabate 


i-USME.0 00. OS@i sO" 0 Gel eo- 
¥O-OiS ie 00 | , 

» OPE So. . 
CO-OLKE 6 
VOM S860 
eO~ a Te 20 
1 mOOST ef 
PO-UA8VHeO | 
HO-O#0D—0 
bO-§ £20 
4O=—(FaT 6 O 
s0-UAa lo 
bO-1Cf.@ 
SRO tal Bho) S. 
HP=) Che 0 


ree mata tp es ta 
fie rtaning 
a rein & 
pe Obs Es 
hie daca ae : 
: halite 


“ssaseseesesee 


80 OOS 60 10-0f8040= 10-08 1140 
BO 0088.0 00 GEOL60 10-0 16%.0~ 
Vi C2160 80 OORA,0~ 80 00S 140 
| —RDATINN worTasaAn03 
EC .0 OBR Oe 0006! 
SECL0- 000.1 BRO 
000.1 SER fae 


im 


en 


CES 


TABLE €C-2D 


ste ok ake afc akc ak ofc afc ak afk xe ok ok 
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“RESULTS USING MODEL 4 


AE TK AE DIK HE OK IK 


LEAST SQUARE PARAMETERS 


K =8.480 MD. 
B =5.038 PSIA. 
BETA=0.362D..10 1/FT. 


ERROR VECTOR DESIGN MATRIX 
(PSTA) X 


BRAS AE AE AE BS BIS HS BE IE DIE IE IS ISIS BIS OK BS BIE OK IS OK SIE IS BK IK SIS BIS IS BIE AE FS IK AS DIS FE FE DIS OK IS OE DIK OIC ISK OK IK DIK OK OK IS 31K 


0.447D-01 -0.106D O01 -0.368D 00 0.373D-10 
-0.843D-01 -0.229D O01 -0.570D 00 0.264D-09 
0.168D-02 -0.-260D 01 -0.595D 00 0.375D-09 
-0.516D-01 -0.287D 01 -04611D 00 0.495D-09 
0.562D-02 -0.313D O01 -0.621D 00 0.629D-09 
-0.570D-01 -0.338D 01 <-0.627D 00 0.782D-09 
0.-962D-01 -0.361D O01 -0.629D 00 0.945D-09 
0.175D-01 -0.384D 01 -0.630D 00 0O.113D-08 
0.660D-02 -0.406D 01 -0.628D 00 0.2134D-08 
0.407D-0O1 -0.426D O01 <-0.625D 00 0.155D-08 
0.193D-01 -0.445D 01 -0.621D 00 0O.1/77D-08 
-0.116D 00 -0.465D O01 -0.615D 00 046203D-08 
0. 748D-01 -0.-483D O1 -0.609D 00 0.228D-08 
-0.283D-01 -0.500D O01 -0.-603D 00 0.255D-08 
SUM OF THE SQUARES OF THE ERRORS=0.049 
ERROR VARIANCE=0.004 
EXPECTED LIKELIHOOD=0.173D 09 
DETERMINANT OF A MATRIX=0.2167D-16 
VARIANCE=COVARIANCE MATRIX 
0e-101D-01 -0.373D-01 0.-120D 08 
-0.373D-01 0.-140D 00 -0.432D 08 
0.120D 08 -0.432D 08 0-147) 17 
CORRELATION MATRIX 
1.000 -0.992 0.985 
-0.992 12000 -0.952 
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FABLE €=3 
AEE AE DE I BIE DIS A IK DIS DK DIS IK AK IE DIS OK DIK OK OK DIS DIK OK DIS DIK DIS DIS IS BIS DIS BIS SIX SI 24S IS SK DIS BI DIS HIS IS OC SIC OK SK 3K 3K OIE IK Ik IS > 
INPUT DATA FOR CORE SAMPLE NO. 1 


RUN 3 


IN ADDITION TO THE 15 DATA POINTS OBTAINED IN 


QG 


AE AR AE AS 


0.106D 
0.114D 
0.124D 
0.132D 
0.141D 
0.150D 
0.159D 
0.168D 


(MSCF/DAY) 


2 a 2 2 a ae 2 a a ae 2 ae a a a 2k a ak 


RUN 2, THE FOLLOWING 8 DATA POINTS WERE ADDED. 
PE PW VIS*T *Z ¥iS 
(PSTA) (PSIA) (CP-DEG.R) CP) 
BS AE FS AE IC IE AS DIS BIS AE BS HE BS IS PIS HE OK OK IS IE DIS DIE A IS 3 IS DIE OKC IC 2K DIS 2K 2K IK 2K aS 
108.456 P45569- O69360 OL OC TTTD=01 
113.556 14-246 0.936D 01 0.176D-01 
118.694 14.352 0.931D 01 0.176D-01 
123.694 142448 0.931D 01 0.176D-01 
1282694 14.541 0.932D 01 0.176D-01 
133.694 142636 0.932D 01 0.176D-01 
138.694 14.748 0.932D 01 0O.176D-01 
143.694 142864 0.932D O01 0.177D-01 
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TABLE C=-3A 


FE HE AR FR FE AIS FS IS IS AK AS FS AS OC OE 


RESULTS USING MODEL 1 
LEAST SQUARE PARAMETERS 


K=5-071 MD. 
B=262593 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSTA) x 
HE AK AE HE AE BIE AE AE AE PIE IE DEAE BIE IE BIS IS OIE IS DS IS BIS DIE OE I BS SIS IS OK DIS IS BK OS 2S BC DIK BIS IIS OK OK OK OI DI OI IS DIS DIK DIS IS OIC OIC 2 
0.286D 01 -0.402D 01 -0.509D 00 
0.224D O01 -0.606D 01 -0.649D 00 
0.113D 01 -0.736D 01 -0.700D 00 
0.671D 00 -0.816D 01 -0.728D 00 
0.718D-01 -0.884D 01 -0.745D 00 
f -0.294D 00 ~0.949D 01 -0.761D 00 
-0.780D 00 -0.101D 02 -0.774D 00 
-0.874D 00 -0.107D 02 -0.789D 00 
-0.123D 01 ~0.113D 02 -0.799D 00 
-0.141D 01 -0.119D 02 -0.809D 00 
-0.143D 01 -0.125D 02 -0.820D 00 
-0.147D 01 -0.130D 02 -0.829D 00 
-0.156D 01 -0.136D 02 -0.836D 00 
-0.116D 01 -0.141D 02 -0.848D 00 
-0.105D 01 -04146D 02 -0.855D 00 
-0.709D 00 -0.151D 02 -0.864D 00 
-0.113D 00 -0.156D 02 -0.874D 00 
-0.153D 00 -0.162D 02 -0.878D 00 
0.197D 00 -0.166D 02 -0.885D 00 
0.595D 00 -0.171D 02 -0.891D 00 
0.140D 01 -0.176D 02 -0.900D 00 
0.182D 01 -0.181D 02 -0.906D 00 
0.243D 01 -0.186D 02 -0.912D 00 


SUM OF THE SQUARES OF THE ERRORS=41.048 
ERROR VARIANCE=1.955 

EXPECTED LIKEL IHOOD=0.144D-16 
DETERMINANT OF A MATRIX=02235D 04 
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C18 
TABLE C-3A...(CONT'D) 
VARTANC E-COVARIANCE MATRIX 
-0.126D-01 -0.201D 00 


70.2010 00 Q.335D 01 


CORRELATION MATRIX ) 
1.000 -0.978 
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TABLE C-3B 
HEB HE AE A 3K 3K 2K IC DIC IS KC SDI I 2 OK OK 2K 
RESULTS USING MODEL 


LEAST SQUARE PARAMETERS 


K 


ERROR VECTOR 


BEEK IK 3K 


SUM OF THE SQUARES OF THE ERRORS=6.286 
ERROR VARIANCE=0.299 


(PSTA) 
3k 9K aK 2 3k 


0.933D 
0.945D 
0.918D 
0.-691D 
0.602D 
0.403D 
0.323D 
0.384D-01 
0.127D-01 
0-123D 00 
0.258D 00 
0.331D 
0.284D 
0.545D 
0.501D 
0.568D 
0.772D 
0.217D 00 
0.328D-01 
0.179D 00 
0.100D 00 
0.463D 00 
0.727) 00 


00 
00 
00 


=9.594 MD. 


HE DIE DIS AK IE IE OK OK OI 2K IK OK OK 2 


kok ok 


BETA=0.443D 10 1/FT. 


Cl 


DESIGN MATRIX 


se 
4 


-06959D 
-0 e 154D 
-0.196D 
-0.222D 
-0.2244D 
“0. 265D 
-0.285D 
~0' «3030 
-0.322D 
-0.339D 
=, 355D 
-0.371D 
-0.401D 
-0.414D 
-0.427D 
-0.440D 
-0.465D 
-0.476D 
-0.486D 
-0.497D 
-0.507D 


EXPECTED LIKELIHOOD=0.132D-07 
DETERMINANT OF A MATRIX=02749D-15 


WEAK AK OK OIE KC 2K 


HE IK AE 


X 


SIR 


O.1 770-11 
0-68 75D-11 
0.-213D-10 
0.342D-10 
0.-500D-10 
0.696D-10 
0.943D-10 
0.123D-09 
64 159D=-09 
0.201D-09 
0.248D-09 
0.301D-09 
0-366D-09 
0.434D-09 
0.510D-09 
OeS95D+09 
0-688D-09 
0.810D-09 
0.928D-09 
0.106D-08 
0-119D-08 
0.134D-08 
0.150D-08 
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TABLE C=3B..« (CONT'D) 
VARIANCE-COVARIANCE MATRIX 
(0.388D-02 0.192D 08 
; OY ONASRD! OLN \4OYEZED. 18 


CORRELATION MATRIX 
path Quo rT 0.868 


ae 


0.868 1.000 


ERROR VECTO 
(PSTA) 
HEE DK A 2 aK 3K 2g 2K 2 ak 9K 2K 


0.274D 00 
0.181D 00 
-0./739D-01 
-0.291D-01 
-0.134D 00 
-0.996D-01 
-0.191D 00 
~0.269D-01 
-0.1100 O00 
-0.106D 00 
-0.382D-01 
-0.245D-01 
=@.117D 00 
0.151D 00 
02114D 00 
0.220D 00 
02.495D 00 
0.311D-01 
~O» 5230-01 
-0.145D 00 
0.880D-01 
-0.194D 00 


Tape €=3¢ 


FE HIE OE IE HE DIS AK IS AS AS IS IE IS IS AE OS OIE IK OI AE OS 2 


se ae ak 
RESULTS USING MODEL 3 
LEAST SQUARE PARAMETERS 
K =7 683 MD. 


B =7.886 PSIA. 
BETA=0.334D 10 1/FT. 
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IK FE IE AC IS IE IK IK IE AK IS OK 


R DESIGN MATRIX 


2 3 A DE a 2 22 A 9 A aK a 2 2A A HI 2 9 aK 2K 2K KI IK 


-0.794D 01 -0.895D 


SUM OF THE SQUARES OF THE ERRORS=0.632 


ERROR VARIA 
EXPECTED LI 
DETERMINANT 


NCE =0.032 
KELIHOOD=0.121D 04 
OF A MATRIX=0.149D-14 


0.345D-10 
O4122D-09 
G<2390-69 
0.341D-09 
0.451D-09 
O25 75D-09 
0.719D-09 
0.8 730-09 
0.105D-08 
0.125D-08 
0-145D-08 
0.166D-08 
06191D-08 
0.216D-08 
0.242D-08 
0.270D-08 
O. 300D-08 
0.336D-08 
0.3/70D-08 
0.405D-08 
0.439D-08 
0.47/7D-08 
0.516D-08 
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FaREE C-S0.s.. (CONT'D) 
VARITANCE=COVARIANCE MATRIX 
0.139D-01 -0.689D-01 0.107D 08 
-0.689D-01 04348D"00' °+0.511D 08 
0-107D 08 -0.511D 08 0.899D 16 
CORRELATION MATRIX 
1.000 -0.991 0.957 
-0.991 1.000 -0.914 


0.957 =-0.914 1.000 


80 OVOLL0 fase 2 “up x ce 


ei 


bf OCB 0 _ 80 O11 40=" fomecurrth ‘. 
Pl ae Pai) Po a 

oe et RATAN MOTTASS 

a vee 100.0% 000. a esi hae 

ie ery. 

an oe ae P1260 00041 mor Or Hs te calf 

pra 580.0 

font a a i eee a Th iy an 

eho. 10 Ca “tp ec " 4 dwt ae 

a yr ee eer” veal ws 


Mails 1 yi » eh oD cm q i: a in - J ‘i i: “- ol Vine 


mi 


\ aor ha 
if 
t 
ity 
a re 
Mood i) 
by 
” & A 
NTT, 
i v4 
a ‘- vil 
al sal ‘ + 
i { , 


7. te y . Me 


ple i ey ils “v9 
: Ra i; : : 
a” ae 
ey), aay 
> ( T ae > oa 
i? ha ow) 

i An 4 - yey 


Mm 


FABLE C=3D 


ie ste ste ste ste se ste se ale ae ole ole ole ste > 
FB AE A AE AIS AB AS AS AB AS AS OS AS 


BK a aK aK aK 


SULTS USING MODEL 4 


LEAST SQUARE PARAMETERS 


K 
B 


=7.901 MD. 
=7-288 PSI 


Ae 


BETA=0.312D 10 1/FT. 


ERROR VECTOR 
(PSTIA) 


EE eC Ca kc a ae ac 2K ake 2K 2 ae ak a ak 2K 9k ak a ak ok 


0.229D 00 
0-183D 00 
-0.253D-01 
0-834D-02 
~0,.893D-01 
-0.673D-01 
-0.158D 00 
-0-202D-01 
-0.104D 00 
-0.108D 00 
-0.537D-01 
-0.447D-01 
~0.133D 00 
02115D 00 
0.815D-01 
0-184D 00 
0.447D 00 
0.157D-01 
0653 50+01 
-0.132D 00 
0.967D-01 
-0.854D-01 
-0.151D 00 


-0.319D 
-0 .348D 
-0.376D 
-0.402D 
-0.429D 
-0 .454D 
-0.500D 
=0.523D 
-0 .544D 
-0.564D 
-0.584D 
-0.603D 
-0-624D 
-0.642D 
-0.661D 
-0.677D 
-0.694D 
-0.7110D 
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SUM OF THE SQUARES OF THE ERRORS=0.484 
ERROR VARIANCE=0.024 
EXPECTED LIKELTHOOD=0.228D 05 

DETERMINANT OF A MATRIX=0-100D~-14 
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te se ste we ale le se ok 
AE AE HE AR AE AK ASAE 


0.386D-10 
0.140D-09 
0.275D-09 
0.390D-09 
O¢S52P50=09 
0.653D-09 
0.811D-09 
0.9/78D-09 
0.1170D-08 
0.138D-08 
0.159D-08 
0-182D-08 
0.209D-08 
0.235D-08 
0.262D-08 
0.291D-08 
0.322D-08 
0.360D-08 
0.396D-08 
0.432D-08 
0.468D-08 
0.508D-08 
0.549D-08 
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TABLE C-3D.--(CONT!D) 


VARTANCE-COVARIANCE MATRIX 


0.118D-01 
-0.581D-01 

0.103D 08 
CORRELATION MATRIX 

1.000 

-0.986 


0.980 


= «581D-01 0-103D 08 


0.294D 00 -0.491D 08 


-0.491D 08 0.936D 16 
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1.000 
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0.980 
-0.936 
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TABLE C4 
2K FOI OCI IC I ICICI RE ICICI a AIC CIC a aK aK ak CCC ak aK aK 
NPUT DATA FOR CORE SAMPLE NO. 1 
RUN 4 


THE FOLLOWING 7 DATA POINTS WERE ADDED TO 


THOSE OBTAINED IN RUNS 2 AND 3. 


Pe PW VIS *7 +2 VIS QG 

(PSTA) (PSTA) (CP-DEG.R) (cP) (MSCF/DAY ) 
BE HE BS FEE DIE IS HES FS AE IS AAS IS OE IS DIS HE FS IS FS OK OIE DIS DIS IE DIS BS BIS OIC BIE CS TS OS IS IE BIS OI TIS OE BIS BIS AS IS OIC IS OO FE OC 
153.446 14.839 0.947D O01 O.178D-01 0.184D 00 
163.578 15e241 04-9490 01 0O.1/78D-01 0.202D 00 
173.578 15-551 04.949D 01 0O.178D-01 0-221D 00 
183.578 15.902 0.9490 01 0.178D-01 0.241D 00 
193-578 16.305 0.948D 01 0.178D-01 0.262D 00 
203.578 b6e711 069450 01 0.1780-01 0.282D 00 
213.578 172185 0.9450 O01 0O.178D-01 0.304D 00 
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TABLE C~-4A 


BA DIDI A 9K 2 SH SKS A A SK I A A KI KI 2 CK aK 2 EK OK 2K 


RESULTS USING MODE 


sl ale 
aR aS 
L 


LEAST SQUARE PARAMETERS 


K=4.273 MDe 
B=40.266 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSIA) x 
BE BIS PAE AE IE DIE AE BIE AE BIS IK FS BIS OES DIS OK IS OS IS AE IE OI FS OIE ADI OIC IE IS OK 2S DIK DIK DIS DIS OI DIC IS OK DIS FISK 3S DIK DIC 3S IC OKC aI 3S 3s 
0.628D 01 -0.669D O1 -0.602D 00 
0.553D Ol -0.949D Ol “§% 7Z2ED 00 
0-380D Ol “Oegttio O2 -0.747D 00 
0.294D Ol “Oel2Zid O02 -0.764D 00 
0-191D Ql -0-129D 02 -0./71D 00 
0.114D O01 0.1370 02 -0./80D 00 
0-215D 00 -0.145D 02 -0./786D 00 
-0.249D 00 -0.152D 02 -0./96D 00 
-0.104D 01 -0.-160D 02 -0.801D 00 
-0.203D 01 -0.174D 02 ~0.814D 00 
-0.246D O01 -0.181D 02 -0.820D 00 
-0.297D O1 -0.188D 02 -0.824D 00 
“042920 01 “00,1950 62 =-0.833D 00 
-~0.318D O1 “042020 O02 -0.838D 00 
“0.3200 01 -0.208D 02 -0.844D 00 
-0-293D Ol “0.2150 O02 “0.8 53D 00 
-0.341D O1 -0.221D 02 =0'48:550' 00 
-0-344D Ql -0.228D 02 -0.859D 00 
-0.341D O1 -0.234D 02 -0.864D 00 
~042930 01 -0.240D 02 -0.872D 00 
-0.287D O1 -0.246D 02 -0.876D 00 
-0.260D O1 “022520 O02 -0.-881D 00 
-0.163D O01 -0.264D 02 -0.894D 00 
0-101D 00 -“O.27T5D 02 -0.907D 00 
02162D Ol -0.286D 02 =0.919D. 00 
0.284D Ol -0-297D 02 -0.928D 00 
0.421D O1 —0.308D O62 -0.936D 00 
0.597D O1 —0.319D 02 -0.946D 00 
0.754D O1 -0.329D 02 -0.953D 00 


SUM OF THE SQUARES OF THE ERRORS=340.312 
ERROR VARIANCE=12.2154 

EXPECTED LIKEL IHOOD=0.237D-34 
DETERMINANT OF A MATRIX=0.2163D 05 
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TABLE C—-4A..-(CONT'D) 


"VARTANCE-COVARIANCE MATRIX 
0.158D-01 =0.395D 00 
-0.395D 00 0.104D 02 
CORRELATION MATRIX 
1.000 -0.974 


-0.974 1.000 
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TABLE C-4B 


A, We slo ste te ate oI, be ste si, v wes! a 
BEE HE DIE AE IS HS DIK BK OK DIS AIS AS DE IS IS SIE OK AS BIS IS OK BIE IS IS BIS DIS OS DIE OK DIS BIS AK DIK DK BIS OIE OS OK DIS DIK BIC OK 3X 2c 3c ai ig 2 3s afk 


RESULTS USING MODEL 2 


K =9.2970MD4 
BETA=0.397D 10 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSIA) X 
Be ope she she ae ae ate ake she ae ae she atk ate aye ae he af ae ae ae ake he ate fe He ale ake ae ae of ofe af fe ohe ale fe afk fe aks afk ake afc ae ak ok ak ake ak ok ok 
-0.121D O1 -0.101D 01 0.187D-11 
-0.136D 01 -0.162D Ol 0.924D-11 
-0.141D 01 -0.207D Ol 0.225D-10 
-0.121D O1 -0.234D O01. 0.361D-10 
-0.114D 01 -0.257D Ol 0.528D-10 
-0.946D 00 -0.279D O1 0.734D-10 
-0.860D 00 -0.301D O01 0.996D-10 
-0.561D 00 -0.320D Ol 0.130D-09 
-0.483D 00 -0.340D 01 0.168D-09 
-0.337D 00 -0.359D Ol 0.212D-09 
-0.156D 00 -0.376D O1 0.261D-09 
-0.301D-01 -0.393D Ol 0.31 7D-09 
-0.107D-01 -0.410D 01 0.385D-09 
0.323D 00 -0.426D O01 0.457D-09 
0.358D 00 -0.440D 01 0.537D-09 
0.514D 00 -0.455D O01 0.627D-09 
0.814D 00 -0.468D 01 0.724D-09 
0.390D 00 -0.483D Ol 0.854D-09 
0.323D 00 -0.496D 01 0.977D-09 
0.235D 00 -0.509D Ol 0.111D-08 
06439D 00 -0.520D O1 0.125D-08 
0.2170 00 -0.532D O1 0.141D-08 
0.990D-01 -0.543D 01 0.157D-08 
0.502D 00 -0.565D Ol 0.188D-08 
0.101D O1 -0.584D O1 0.225D-08 
0.102D O1 -0.602D Ol 0.268D-08 
0.510D 00 -0.620D 01 0.318D-08 
-0.184D 00 -0.636D O01 0.375D-08 
-0.616D 00 -0.615D 01 0.433D-08 
-0.156D 01 -0.666D Ol 0.500D-08 


SUM OF THE SQUARES OF THE ERRORS=17.515 
ERROR VARIANCE=0.626 

EXPECTED LIKELTHOOD=0.504D-15 
DETERMINANT OF A MATRIX=02194D-13 
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TABLE C~4B..- (CONT'D) 
VARIANCE-COVARIANCE MATRIX 
0.004D-02 0.641D O7 
0.641D O7 0.201D 17 


CORRELATION MATRIX 
1.000 0.820 


0.820 1.000 
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iy apis 1 ine 


“ve hs ae 
* = 


 . 


BE AE AE AK HE IE OC IS IS 2 OE IE OIE KIS OK 


le J, 
2 DE 3 HE aK aC aK aK a 


ERROR VECTO 
(PSTA) 


0.329D 00 
0-241D 00 
-0.201D-01 
0.-188D-01 
-0.938D-01 
-0.675D-01 
-0.168D 00 
-0.138D-01 
-0.108D 00 
-0.116D 00 
-0.601D-01 
-0.588D-01 
-0.166D 00 
0.895D-01 
0.379D-01 
0-130D 00 
0.390D 00 
-~0.938D-01 
-0.194D 00 
-0.304D 00 
-0.877D-01 
-0.310D 00 
-0.407D 00 
0.187D-01 
0.652D 00 
0-826D 00 
0.507D 00 
0.511D-01 
-0.120D 00 
-0.763D 00 
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RESULTS 


TABLE C-4C 
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3 3K 
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LEAST SQUARE PARAMETERS 


K 
B 


=7.657 MD. 
=8.096 PSI 


Ae 


BETA=0.2338D 10 1/FT. 


R 


a 
o— 


ae ak ok ok 2k ak ok 

-0.158D 
-0.250D 
-0.314D 
#043530 
-0.387D 
-0.418D 
-0.448D 
-0.476D 
-0.504D 
~0 «531D 
-0.555D 
-0.579D 
-0.604D 
-0.626D 
-0.647D 
-0.668D 
-0.688D 
-0.709D 
-0.728D 
-0.747D 
-0.763D 
-0.781D 
-0.798D 
-0.831D 
-0.860D 
-0.887D 
-0.914D 
-0.939D 
-0.963D 
-0.985D 


sie 
75 


DESIGN MATRIX 


-0.799D 
-~0.811D 
-0.823D 
-0.833D 
-0.842D 
-0.849D 
-0.858D 
-0.864D 
-0.870D 
-0.877D 
-0.878D 
-0.882D 
-0.885D 
-0.890D 
-0.892D 
-0.894D 
-0.903D 
-0.910D 
“QeF9t 5D 
-0.916D 
-0.916D 
-0.917D 
-0.916D 


5 A SK SK 2K HI AS 3K OK OK aI AICHE 2 


SUM OF THE SQUARES OF THE ERRORS=2.818 
ERROR VARIANCE=0.104 
EXPECTED LIKELIHOOD=0.384D-03 
DETERMINANT OF A MATRIX=0.2391D-13 
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0.346D-10 
0.122D-09 
0.239D-09 
0.341D-09 
0.451D-09 
0.576D-09 
0. /19D-09 
Oie8 730-09 
0.105D-08 
0.125D-08 
0.145D-08 
0-166D-08 
0.191D-08 
0.216D-08 
0.242D-08 
0.2 /70D-08 
0.299D-08 
0.336D-08 
0.3/70D-08 
0.404D-08 
0.438D-08 
0.4/7D-08 
Ce2L 50-05 
0.582D-08 
0.659D-08 
0. 744D-08 
0.836D-08 
0.934D-08 
0.103D-07 
0.114D-07 
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TABLE C—4E6 ces (CONT'D) 


VARIANCE-COVARIANCE MATRIX 


0.141D-01 

-0% 7980-0) 

0.684D 07 
CORRELATION MATRIX 

1.000 

-0.984 


0.942 


0.466D 


-0.369D 


-0.984 


1.000 


-0.884 


Ol 0.684D O7 


00 -0.369D 08 


08 0.374D 16 
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TABLE C-4D 


A, 4 
III A ICICI II KICK A ROK 3 2k a 2K AE aI OK a KK ICICI 2K a 


AK OAK 


4 4, 


ULTS USING MODEL 4 


LEAST SQUARE PARAMETERS 


SUM OF THE SQUARES OF THE ERRORS=2.705 
ERROR VARIANCE=0.100 
EXPECTED LIKELIHOOD=0.580D-03 

DETERMINANT OF A MATRIX=0.342D-13 
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0.388D-10 
0.141D-09 
Ou2 160-09 
02393D=09 
0.51 7D-09 
0.656D-09 
0.814D-09 
0.982D-09 
0. 1170-08 
0.138D-08 
0.160D-08 
0.183D-08 
0.209D-08 
02.235D-08 
0.263D-08 
0.292D-08 
Oes220-08 
0.361D-08 
0.396D-08 
0.432D-08 
0.468D-08 
0.508D-08 
0.549D-08 
0.621D-08 
0. 7030-08 
O. 795D-08 
0.894D-08 
0.100D-07 
Oe L112 0-07 
O41 23D=07 


K =7.868 MD. 
B =/e590 PSTA. 
BETAHO063 LOD" 1LOOLAFT. 
ERROR VECTOR DESIGN MATRIX 
(PSTA) X 
EE SII 2 aK 2 aK a af 26 2 BI ICC OR aI IO aC a a a a a a ai Kf af 2K 3 ak 
0.292D 00 -0.114D 01 -0.335D 
0.-260D 00 -0.194D O01 -0.478D 
0.488D-01 -0.253D 01 -0.546D 
0.760D-01 -0.289D 01 -0.576D 
~0.298D-01 “043200 01 =-0.595D 
-0.1770-01 -0.349D O01 -0.609D 
-0.120D 00 -0.378D O01 -0.619D 
0-542D-02 -0.404D O01 -0.625D 
-0.922D-01 -0.430D O1 -0.628D 
-0.111D 00 -0.456D O01 -0.630D 
-0.711D-01 -0.4/79D O1 -0.630D 
-0./775D-01 -0.502D O01 -0.628D 
-0.183D 00 -0.525D 01 -0.625D 
02482 D-01 -0.547D O01 -0.622D 
-0.163D-02 ~0.567D O01 - -0.617D 
0.832D-01 -0.587D O01 -0.613D 
0.328D 00 -0.606D O1 -0.608D 
-0.124D 00 -0.627D O1 -0.600D 
-0.213D 00 -0.645D O01 -0.594D 
-0.310D O00 -0.663D O1 -0.588D 
-0.101D OO -0.680D O01 -0.583D 
-0.-304D 00 -0.697D O1 -0.576D 
-0.390D 00 -0.714D 01 -0.570D 
0.253D-01 -0.746D O01 -0.563D 
0.647D 00 “O.77T5D OL =O05.552D 
0.822D 00 -0.802D O01 -0.541D 
0.517D OO -0.829D O1 -0.530D 
0.727D-01 -0.855D O01 -0.519D 
-0.105D 00 -0.879D Ol -0.510D 
-0.744D 00 -0.902D 01 -0.500D 
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TABLE C—4D..<(CONT'D) 


VARTANCE-COVARIANCE 
0.109D-01 
-0.654D-01 

0.638D O7 
CORRELATION MATRIX 

1.000 

-0.976 


0.967 


MATRIX 


=0.654D-01 0.638D O7 


0-412D 00 -0.364D 08 


-0.-364D 08 0.399D 16 


1.000 


-0.898 


0.967 
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PAGLE C5 
Bo A done tnd ee dpe cgp diay died dp ob dbs db ob se diet deeds die drs ie So Gi ae habs dint dbs coed dpe det dbs dine du do ab dos ap tape dba db tended edd 
INPUT DATA FOR GORE SAMPLE NO. 1 
RUN 5 
PE PW VIS*T*Z vIS QG 

(PSIA)  (PSIA) (CP-DEG.R) (CP) (MSCF/DAY) 
He ae He ae ake ee ai a ae ae akc BKK aK fe aE 2K akc 3 aK a aK ake aK ag I aK aK aK ok ak 2s aK aK akc aK aK ag aK a ak akc ak ak ak ak 3 of ak 
58.520 534420 0.943D 01 O.2.177D-01 0.690D-02 
63-520 532/20 0.944D O01 0O.177D-01 0.130D-01 
732520 532620 0.4.945D 01 0O.177D-01 0.2.73D-01 
83.520 532120 0.947D O1 0O.178D-01 0.426D-01 
932520 536420 0.948) 01 0O.178D-01 0.5/78D-01 
103-520 53.2520 0.948D 01 0.178D-01 0-73 7D-01 
113.520 532520 04.949) O01 0O.178D-01 0.904D-01 
128.520 53.920 0.949D 01 0.178D-01 0.117D 00 
143.516 532666 049500 01 0.178D-01 0.145D 00 
163.516 536516 O69510 O01 ° O817TED-01 0.-185D 00 
183.516 S30f16 669510 O01 ‘O5178D-01 0.225D 00 
203.539 534539 629380 01° O.177D+01 0.272D 00 
243-539 546339 0.941D 01 0O.178D-01 0.364D 00 
263.539 53.2589 0.941D O01 0O.178D-01 0.413D 00 


ee) iat Pt uae 


i He SR ae a mS eas Rs anak oe ehephibiceneieeeemee: % Hm 
> Li IIIA SHOT ROW ATA -TUIMI * 0 ee 

= “YOR. ; é hack ii 7 7 

et 


| pee 21 Sete 2DV ‘e WS 
(YROQTISMD. ~~ tay - (%ed30=89) (AT29) 


set se yak 2 aaa he abt ahs ak 


. 10-0 E 


S 0-GOR8 oO 


(0=G€F 8.0 
LO-GOS8.0- 
iOS ead 
LO-GF ST 60 
LO-GP0C 60 _ 
00 OF 1b so 


00 08.0 
Ooo G&La.O 


~~ 


-_ N f " : 
Wet Nn, : ‘ 
dy " “ } - 


TABLE 6-5A 


22 DE 2 a ae 2 a a a 2 a IC a ae 2 Ea A a a 2 a a aC a ae a ae a 2 ke 2k a aK aK ake a a 2 ot 


RESULTS USING MODEL 1 


LEAST SQUARE PARAMETERS 


K=2-468 MD. 
B=166.412 PSIA. 


ERROR VECTOR DESIGN M 
(PSIA) x 

He 3 3 SK 3 a 3 2K 2g aK OK ai aK aK ae aK ak a aC aK 2 ake aK 2K 2 akc ae a ok ok ak ak afc a a akc ok a 2 ak 
0e287D-01 -0./784D O1 
0.e110D Ol -0.139D 02 
0.-115D 01 —0.-252D 02 
0.131D O1 -0.346D 02 
0.942D 00 -0.417D 02 
0.879D 00 -0.480D 02 
0-641D 00 -0.536D 02 
-0.107D O1 -0.605D 02 
-0.133D O01 -0.671D 02 
-0.169D O01 -0.748D 02 
-0e142D Ol -0.816D 02 
-0.979D OO -0.880D 02 
0-337D OO —-0.993D 02 
» 0.2330 01 -0.105D 03 


SUM OF THE SQUARES OF THE ERRORS=20.60 
ERROR VARIANCE=1.718 
EXPECTED LIKELIHOOD=0.725D-10 
DETERMINANT OF A MATRIX=0.277D 04 
VARIANCE-COVARIANCE MATRIX 

0.2 130-02 -0.312D 00 

-0.312D 00 0.360D 02 
CORRELATION MATRIX 

1.000 -0.995 


in FOS 1.000 


ATRIX 


-0.872D- 


-0.157D 
~O«2 75D 
-0.370D 
-0.433D 
-0.487D 
“0.5320 
-0.576D 
-0.620D 
-0.666D 
-0.702D 
-0. 733D 
-0.778D 
-0.804D 
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FABRE ¢C-56 


ste Sle ste bd ste cle cle ole le pd ' ». s 


4 4, 
FE AE FE BEAK A TK SE OS IS DIS OK 2 OK OK 


LEAST SQUARE PARAMETERS 


K =8.376 MDe 
BETA=0.306D 10 1/FT. 


ERROR VECTOR DESIGN MATRIX 
(PSIA) X 


HE BS FE AK AS HS AE IE AS HK HS OK BIS AIS DEE IS DIK ASS DIC 3K IK OE IS DE DIK IC OK IS OK OK IC OK IS 2S OK IS BIS OIC IS DIS 2K OC OC 3 28 2c 2 IS 2c 2x 


* 
% 
% 
% 
% 
* 
* 
4% 
3 


-0.884D 00 -0.671D 00 0.3509D-11 
-0.107D O1 -0.116D O01 0.110D-10 
-0.161D Ol -0.210D 01 0.482D-10 
-0.167D 01 -0.290D O01 0.11/7D-09 
-0.141D Ol -0.3530D 01 0.214D-09 
*“0.917D 60 -0.410D O1 0.346D-09 
-0-421D 00 -0.461D O1 0.519D-09 
~0.859D-01 -=045300 .O} 0.865D-09 

0-543D 00 -045910 .01 02.132D-08 

0.115D 01 -0.661D O01 0.211D-08 

0-172D O1 -0./721D O1 0.310D-08 

0.114D O1 -O06773D Ot 0.44/D-08 
-02105D 00 -0.860D O01 0./780D-08 
-02125D O1 -0.898D O01 0-992D-08 


SUM OF THE SQUARES OF THE ERRORS=17.805 
ERROR VARIANCE=1.218 

EXPECTED LIKEL IHOOD=0.203D-09 
DETERMINANT OF A MATRIX=0.263D-13 
VARIANCE=COVARIANCE MATRIX 


0.111D-01 0-138D 08 
0.138D 08 0-248D 17 
CORRELATION MATRIX 

1.000 0.832 


0.832 1.000 
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RESULTS USING 


FABLE €~5C 
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MODEL 3 


LEAST SQUARE PARAMETERS 


K 
B 


=3.883 MD. 
=81.135 PS 


IA. 


BETA=0.164D 10 1/FT. 


ERROR VECTOR 


(PSTA) 


DESIGN MATRIX 


x 


BS IS AE BIS AE AS BC IS IS AS IS FS IS OS IK 2S IS OK IS OKC IK KC 2 


-0.38/7D 00 -0.315D O1 -0.866D-01 
0. 706D-01 -0.551D O01 -0.154D 00 
-0.120D 00 “0.999D 01 =-O.«2700 00 
-0.297D-01 -0.138D 02 -0.364D 00 
-0.435D-01 -0.167D O02 -0.429D 00 
0.197D 00 -0.193D 02 -0.484D 00 
0.343D 00 -0.216D 02 -0.530D 00 
-0-329D 00 -0.246D 02 -0.579D 00 
-0.162D 00 ~0.274D 02 -0.625D 00 
-0.843D-01 -0.305D 02 -0.672D 00 
0.264D 00 -0.333D 02 -0.708D 00 
0.756D-01 -04358D 02. -Qs737D 00 
-0.169D 00 -0.400D 02 -0.776D 00 
0-556D-01 -0.420D 02 -0.797D 00 
SUM OF THE SQUARES OF THE ERRORS=0.577 
ERROR VARIANCE=0.052 
EXPECTED LIKELIHOOD=0.485D O1 
DETERMINANT OF A MATRIX=0.2332D-14 
VARTANCE-COVARIANCE MATRIX 
0.135D-01 -0.523D 00 0.957D 
-0.523D 00 0.2020 O02 -0s367D 
0.957D Of -0.367D 09 0.703D 
CORRELATION MATRIX 
1.000 -1.-000 0.982 
-1.000 1.000 -0.974 
0.982 -0.974 1.000 
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RESULTS USING MODEL 4 


LEAST SQUARE PARAMETERS 


K 


B =56.82 


=4.724 MD. 


9 PSIA. 


BETA=0.148D 10 I1/FT. 


ERROR VECTOR 


(PSTA) 
BEAK FE HS HE BIE BIS FS BE OE OIE OE IS 2 OIE IK IS IE IS BIS AE IS OC OC 
-0.1710 00 =0.52 
0-202D-01 -O.l 
-0.681D-01 ~O63 
-0.360D-01 “045 
-0.247D-01 -0.6 
0-121D 00 -0 68 
0.213D 00 -0.9 
-0.161D 00 —Oe! 
-0.898D-01 -0O.1l 
“06 7150-01 =§ «1 
0.199D 00 -O.1 
-06573D-01 -0.1 
~0.874D-01 -0.2 
0.61 7D-01 -0.2 
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DESIGN MATRIX 


SRK RCC CI aC 9 2K aK 
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ate she le 
FE AR AS 


-0.454D-01 
-0 .803D-01 
“Os 149D 
-0.208D 
-0.252D 
=05290D 
-0.322D 
-0.360D 
-0.390D 
-0.419D 
-0.438D 
-0.450D 
-0.461D 
-0.463D 


SUM OF THE SQUARES OF THE ERRORS=0.191 


ERROR VARIANCE=0.017 


EXPECTED LIKELIHOOD=0.108D 05 


DETERMINANT OF A MATRIX=0.390D-15 


VARIANCE=COVARIANCE M 
0.193D-01 
-0.508D 00 
0.109D 08 
CORRELATION MATRIX 
1.000 
~0«999 


0.993 


ATRIX 
-0.508D 
0.2134D 


-0.286D 


“05999 


1.000 


-0.989 


00 0.109D 


02 082660 
09 0.624D 
0.993 
“04989 
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0.222D-10 
0. 748D-10 
0 «299D-09 
0.665D-09 
OslITd-08 
0.166D-08 
O¢23PD-08 
0.344D-08 
0.476D-08 
0.6/72D-08 
0.886D-08 
0.115D-07 
0.16/7D-07 
0.197D-07 
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TABLE: €=6 


So ate ate ste ale ole wtp SI. le ale de she xt, te I Me ate J, le Le sey 
DE HE HE SIE BKC HE SIE SIE BIS OIE IS OIE OIE SC OK OS IK OK of ais aie ie ok oie ie aie ak a aie ais aie Std aig aie oie ik 3K afk oie akc alc ate ok ok ole aie ate ok ak ole ole aie 


INPUT DATA FOR CORE SAMPLE NO. 1 


RUN 6 
PE Pw VIS#T*Z vis QG 
(PSTA)  (PSIA)  (CP-DEG.R) (CP) (MSCF/DAY) 
DEAK HE YE DE EE IS DIE IE DS AE DIS AS IS FE OK OK DIK OK DIKE BIE DIS BI OK AS HIE OS OK IK OK DIS IK OK SI OIE OIE FIC DIK IS 3K OK IS DIS IS Ik 2K 2K I 
43.366 33.586 0.9410 01 0.177D-01 0.895D-02 
534363 334228 0.942D 01 0.1770-01 0.199D-01 
63.553 334466 0.943D 01 0.177D-01 0.317D-01 
732553 336547 0.9460 01 0.177D-01 0.444D-01 
83.253 33.567 0.9460 01 0.177D-01 0.580D-01 
934253 33.538 0.946D 01 0.178D-01 0.730D-01 
103.153 336451 =0.947D 01 0.1780-01 0.884D-01 
112.347 33.503 0.947D 01 0.178D-01 0.103D 00 
123.547 334532 0.948D 01 0.1780-01 0.123D 00 
133.547 33.609 0.948D 01 0.178D-01 0.141D 00 
143.797 334561 0.9480 01 0.178D-01 0.160D 00 
153.547 33.483 0.9490 01 0.178D-01 0.179D 00 
173.632 334584 0.941D 01 0.177D-01 0.216D 00 
193.626 33.640 0.941D 01 0.178D-01 0.256D 00 
2132626 334636 04.942D 01 0.178D-01 0.302D 00 
2332626 334602 0.943D 01 0.178D-01 0.347D 00 
2534620 334538 049440 01 0.178D-01 0.392D 00 
2634624 334619 0.9440 01 0.178D-01 0.416D 00 
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0.413D 01 
0.-482D O01 
0.420D 01 
0-310D Ol 
0.159D O1 
0-574D-02 
-0.101D O1 
-0-160D O1 
-0.351D O1 
-0-395D Q1 
-0.436D 01 
-0.530D 
-0.202D 
-02128D 
-0.260D 
0-118D 
0.401D 
0.541D 
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se sle ye 
. 


ax 


te ste le yt, 


lp si, te ra le 
SIS BIS FE AR FS AE FS IS OS ISS IE BK OK IE FS 2S OIE OS 3} 


K=2.990 MD. 
B=102.696 PSIA. 


KK 
RESULTS USING MODEL 1 


LEAST SQUARE PARAMETERS 


sle ste 3h 
< 


DESIGN MATRIX 


-0.103D 
-0.186D 
-0.242D 
-0.286D 
~0 6 322D 
-0.356D 
-0.386D 
-0.412D 
-0.441D 
-0.466D 
-0.491D 
-0.513D 
-0.557D 
-0.598D 
-0.638D 
-0.676D 
~9.723D 
-0.730D 


-0.249D 
-0.415D 
=0.¢507D 
-0.568D 
-0.608D 
-0.640D 
-0.669D 
-0.692D 
-0. /708D 
-0./727D 
-0.744D 
-0.756D 
-0.797D 
-0.821D 
-0.842D 
-0.861D 
-0-882D 
-0.891D 


SUM OF THE SQUARES OF THE ERRORS=201.301 
ERROR VARIANCE=12.585 
EXPECTED LIKELIHOOD=0.139D-20 
DETERMINANT OF A MATRIX=0.923D 04 
VARIANCE-COVARIANCE MATRIX 


CORRELATION MATRIX 


0.2123D-01 -0.830D 00 
-0.830D 00 0.-576D 02 
1.000 -0.986 
-0.986 1.000 
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LEAST SQUARE PARAMETERS 


K =8./06 MD 
BETA=0.334D 1 


ERROR VECTOR 
(PSTA) 
HE AE DI AE 3K BI IC 2 2K BK aK 2 2K aK 2K 2K ak 9k 


-0.106D 
-0.163D 
-0.2160D 
-0.138D 
-0.2118D 
-0.974D 00 
-0.578D 00 
-0.709D-01 
-0.186D 
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-0.816D 00 
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SUM OF THE SQUARES OF THE ERRORS=23.010 
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DESIGN MATRIX 


-0.415D 
=(} 0457D 
-0.567D 
-0.598D 
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-006720 
-0.758D 
-0.794D 
-0.825D 
-0.839D 
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=0.516D-13 


VARIANCE-~COVARIANCE MATRIX 


0.783D-02 0.940D 
0-940D O7 0-164) 
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1.000 0.830 
0-830 1.000 
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TABLE C-6C 


S USING MODEL 3 


a bid ste ste ste ste ste ste se 3 le ste she ale slo le ste ole sie ote 
HE HE BIE IK OE IE OK IE IK DK BS FS BK BIS DK AI FIR DIE DIS BIS DIS DIK OIE DIS OK DKK FI OK IE OK IK 2K 


LEAST SQUARE PARAMETERS 


K =5.983 MD. 
B 2254462 PSEA. 
BETA=0.264D 10 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSIA) x 
DIS DIK HE DIK DIE BS SIE DK DIE DIK BIS BIS DIS OIC PIS DIS DIS DIS IK BK BIS 2S IK 2S IK BI DIS 2S AIS DIK DIK OIE DIK DIK BIS DIS DIS DK DIK YE BIS DIK DIS IS BIS 2S OC IK OK 3g 3s 2I 
0.348D 00 -0.235D 01 -0.227D 00 0.4910D-10 
0.199D 00 -0-423D 01 -0.379D 00 0.197D-09 
0.174D 00 -0.566D 01 -0.475D 00 0.418D-09 
0.150D 00 -0.686D 01 -0.545D 00 0.709D-09 
-0.237D-01 -0.790D 01 -0.597D 00 0.107D-08 
-0.236D 00 -0.886D 01 -0.639D 00 0.151D-08 
-0.185D 00 -0.-72D 01 -0.675D 00 0.200D-08 
0.405D-01 -0.104D 02 -0.702D 00 0.250D-08 
-0.551D 00 -0.113D 02 -0.725D 00 0.323D-08 
-0.409D 00 -0.119D 02 -0.746D 00 0.390D-08 
-0.387D 00 -0.126D 02 -0.765D 00 0.467D-08 
-0.898D 00 -0.132D 02 -0.777D 00 0.548D-08 
0.120D 01 -0.142D 02 -0.812D 00 0.715D-08 
0.114D 01 -0.152D 02 -0.831D 00 0.908D-08 
0.648D 00 -0.160D 02 -0.845D 00 0.112D-07 
-0.110D 00 -0.168D 02 -0.856D 00 0.136D-07 
-0.282D 00 -0.175D 02 -0.867D 00 0.160D-07 
-0.562D 00 -0.178D 02 -0.871D 00 0.172D-07 


SUM OF THE SQUARES OF THE ERRORS=5.295 
ERROR VARIANCE=0.353 

EXPECTED LIKELIHOOD=0.213D-06 
DETERMINANT OF A MATRIX=02150D-13 
VARTANCE-COVARIANCE MATRIX 


0.730D-01 -0.969D 00 0.293D 08 
-0.969D 00 Oel3S0OD 02 0.3800 09 
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TABLE C~6C 462 (CONT'D) 


CORRELATION MATRIX 
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05 995 1.000 _ -0.932 
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RESULTS USING MODEL 4 


He 


LEAST SQUARE PARAMETERS 


K 
B 


=6.532 MD. 


=20.696 PSIA. 


BETA=0.245D 10 1/FT. 


ERROR VECTOR 


DESIGN MATRIX 
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HE BE AE IIS BE BK OK 2K DIS OIE OK 2K IS IK 3 OK 


(PSTA) x 
BE FE BE AS BIS HK IS BIE BE BIS SEK FE BIE BIS ISS FE BIS IK BS OK BIC KFS OK OS IS BS BIS AE IS SIE DIK DC BIE DIE OK DIK OC BIS IC OK OE IK DIS ISO 2K OK 2K 2c 
0.263D 00 “049330 G2 -G4I47D 00 0.523D-10 
0-214D 00 =O2255D 01 =04260D 00 0.219D-09 
0.235D 00 -0.357D O01 -0.335D 00 0.474D-09 
0.234D 00 -0-448D 01 -0.390D 00 0.813D-09 
0.978D-01 =055290 O01 <04429D 00 0.4123D-08 
-0,;9180+01 -0.606D 01 -0.459D 00 0.1/73D-08 
-0.887D-01 -0.675D 01 -0.479D 00 0.229D-08 
0.63 7D-01 -0.734D O01 -0.491D 00 0.285D-08 
-0.466D 00 -0.804D 01 -0.502D 00 0.365D-08 
-0.383D 00 -0.860D 01 -0.506D 00 0.439D-08 
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-0.163D 00 -0.134D 02 -0.458D 00 0.170D-07 
-0.364D 00 =0.137D O02 -06452D 00 0.183D-07 
SUM OF THE SQUARES OF THE ERRORS=3.516 
ERROR VARIANCE =0.234 
EXPECTED LIKELIHOOD=0.615D-04 
DETERMINANT OF A MATRIX=0.680D-14 
VARTANCE-COVARIANCE MATRIX 
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-0.766D 00 0.932D O01 -0.372D 09 
0.316D 08 -0.372D 09 0.161D 17 
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TABLE C-6D.0-(CONT*D) 


CORRELATION MATRIX 
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TABLE C+ 7 
BESSA A BIC A 3 AEC SC BK AE A 3K I BKC A SIS 3K 3K CCH aK AE OK 1 2K EI IC 2 2 aK aK 2 9K 3K CH 
INPUT DATA FOR CORE SAMPLE NO. 2 
PE PW VIS*T* VIS QG 


4, 4, J, A, u J. he te st ln ale ~ 
DEAE DIC IC ai SII a aK aK 9K aI 2 OK aK IC aK a 2K 2 2 3 aK aK aK aK 2 2K aK ak ak ak ak aK a ak af ac a 2c ak fe afc akc a a afk akc ak ak ak 


23-610 
29-4620 
334625 
35.610 
41.625 
53.610 
732610 
93.654 
113.654 
133.654 
153.654 
173.2654 
193.654 
2134654 


13.610 
13.620 
134625 
13.610 
13-625 
13.610 
13.610 
£3—655 
13.655 
13.656 
13.657 
13.657 
132658 
13.658 


0.934D 
0.936D 
0.933D 
0.-934D 
0-933D 
0.934D 
0.933D 
0-931D 
0-932D 
0.933D 
0.933D 
0.934D 
0.935D 
0.936D 


0.176D-01 
0.1/76D-01 
0.176D-01 
0.1/76D-01 
0.176001 
0.1/76D-01 
0.176D-01 
0.176D-01 
0.176D-01 
0.177D-01 
0.177D-01 
0.177D-01 
0.177D-01 
O61 77D+O1 


0.6/75D-03 
0.1210-02 
0.163D-02 
0.184D-02 
0.254D-02 
0.427D-02 
0.809D-02 
0.128D-01 
0.186D-01 
0.254D-01 
0.329D-01 
0.41 7D-01 
O4511D=01 
0.615D-01 
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TABLE €=7A8 
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RESULTS USING MODEL 1 
LEAST SQUARE PARAMETERS 


K=0.666 MD. 
B=8.962 PSIA. 


ERROR VECTOR DESIGN M 
(PSIA) ¥ 

BE AE AE AE AE BIE HK BE IE FS BIS OE BIS EAS BS AE IS BIS IS FE DIC DIC AE DIE SIE AIS BIC DIS IS OC IS 2K DIK OIC DIS OIC IK OK 2S OI 
0-931D 00 *OeE72D O2 
0.403D 00 -0.245D 02 
0-226D 00 -0+2689D 02 
0.293D 00 +0.3209D: 02 
0-546D 00 -0-366D 02 
0.322D 00 -0.475D 02 
-0-531D 00 -0.646D 02 
-0.508D 00 -0.806D 02 
-0.710D 00 -0.«963D 02 
-0.733D 00 -Os 1120 03 
-0.198D 00 ~O,LZ27D. O3 
-0.219D 00 -0.2.142D 03 
0.307D 00 -0.157D 03 
0.967D 00 ~GwvifZ20 3 


SUM OF THE SQUARES OF THE ERRORS=3.552 
ERROR VARIANCE=0.296 
EXPECTED LIKELIHOOD=0.164D-04 
DETERMINANT OF A MATRIX=0.160D 06 
VARTANCE-COVARIANCE MATRIX 

0.160D-04 -0.181D-02 

-0.181D-02 0.239D 00 
CORRELATION MATRIX 

1.000 -0.926 


-0.926 1.000 
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TABLE C-7B 


LEAST SQUARE PARAMETERS 


K =0.812 MD. 
BETA=0.136D 12 1/FT. 
ERROR VECTOR DESIGN MA 
(PSIA) X 
BE FE AR BK IK BIE AE AK AS BS IC BS IS BIS 2K OK BIC OE IK OS BIS SE IEE SIE IE DIS IK OK IK OIC IK OC IS OC OE AK OIE OK 2S OK 2 
-0.136D 01 -0.108D 02 
-0.155D 01 -0.155D 02 
-0-169D O1 -0.184D 02 
-02-128D Ol © -0.236D 02 
-0.994D 00 -O73120 .G2 
-0.768D 00 -0.434D 02 
0.117D 00 -0.547D 02 
0.-565D 00 -0.657D 02 
0.836D 00 -0.762D 02 
02123D Ql -0.862D 02 
0.619D 00 -0-962D 02 
0.274D-01 -0.106D 03 
-0.979D 00 -0.-115D 03 


SUM OF THE SQUARES OF THE ERRORS=16.856 
ERROR VARIANCE=1.405 
EXPECTED LIKEL IHOOD=0.297D-09 
DETERMINANT OF A MATRIX=0.833D-17 
VARIANCE-COVARIANCE MATRIX 

0.903D-04 0.809D 09 

0.809D 09 0.987D 22 
CORRELATION MATRIX 

1.000 0.857 


0.857 1.000 
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ERROR VECTO 
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-0.139D 00 
-0.604D-01 
0.246D 00 
0.209D 00 
-0.301D 00 
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-0.823D-01 
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-0-589D-01 
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RESULTS USING MO 


Kk xk 3k 
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LEAST SQUARE PARAMETERS 


K 
B 


R 


=0.706 MD. 
=6-580 PSI 


-0.151D 
-0.215D 
=. 255D 
-0.324D 
-0.578D 
~0.863D 
-0.100D 
-0.113D 
-0.127D 
-0.140D 
-0.152D 
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BETA=0.507D 11 1/FT. 


DESIGN MATRIX 


SIE IC Ca aC ak a a a ak af OK a a aC a a a ae fe a aK ak ae aK af ak ac a ok a a 


X 
HE AK AE OK 


-0.424D 
-0.540D 
-0.592D 
-0.617D 
-0.677D 
-0.749D 
-0.812D 
-0.854D 
=Q e913D 
-0.921D 
-0.929D 
-0.936D 


SUM OF THE SQUARES OF THE ERRORS=0. 332 
ERROR VARIANCE=0.030 
EXPECTED LIKELIHOOD=0.231D 03 
DETERMINANT OF A MATRIX=0.156D-15 


VARTANCE=-COVARIANCE MATRIX 
0.187D-04 -0.115D-02 0.200D 
-0.115D 02 0.784D-01 -0.114D 
0.200D 08 -0.2114D 10 0.242D 
CORRELATION MATRIX 
1.000 -0.950 0.940 
-0.950 1-000 -0.828 
0-940 -0-828 1.000 
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HE BK FE BIE OK 2S AS FS OK 21S 3K 3K 2K 


0.112D-12 
0.285D-12 
0.457D-12 
0.552D-12 
0.902D-12 
0.198D-11 
0.513D-11 
0.102D-10 
0.176D-10 
0.278D-10 
0.409D-10 
0.577D-10 
0.780D-10 
0.102D-09 
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RESULTS USING MODEL 4 


aa 3 


re she ake ok ale ak se oi af oie alg ole ofc at ole akc akc ok 
PEAK FE AE AS AS FS AB AS AIS FS AE AAS AS AS ASS 


LEAST SQUARE PARAMETERS 


K =0.708 MD. 
5 60507 PSTAs 
BETA=0.490D 11 1/FT. 


ERROR VECTOR 
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ste gle ale se cle le Se se gle 
AR AK AK AS AS OK 28 8 FF 


DESIGN MATRIX 


(PSTA) x 
BEI OIC IE 2A 2 DK a 3 DECC IC 2 2 aK a I af A a af a aK IC Ca aK a aK ak aKa 2 a ak a aK ie 2k 
0.619D-02 ae2?80 OF +04832D 00 
0.391D-02 -0.176D 02 -0.442D 00 
-0.115D 00 “052190 02. =Gs4990 00 
-0.493D-01 -0.230D 02 -0.522D 00 
0.216D 00 -0.278D 02 -0.578D 00 
0.193D 00 -0.374D 02 =0.661D 00 
-0.267D 00 -0.528D 02 -0.742D 00 
-0.203D-01 -0.671D 02 -0.785D 00 
-0.705D-01 -0.811D 02 -0.812D 00 
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0.285D 00 -0.108D 03 -0.836D 00 
-0.352D-01 *0.1210 03 8.8410 00 
-0.119D-02 ~0.934D 03 048420 00 
-0.482D-01 -0.147D 03 -0.840D 00 


SUM OF THE SQUARES OF THE ERRORS=0.276 


ERROR VARIANCE=0.025 


EXPECTED LIKELIHOOD=0.838D 03 


DETERMINANT OF A MATRIX=02104D-15 


VARITANCE-COVARIANCE MATRIX 


0-201D-04 
-0.126D-02 

0-202D 08 
CORRELATION MATRIX 
1.000 

-0-952 


0.956 


-0.126D-02 
0.871D-01 


-0.117D 10 


1.000 


-0.841 


0-202D 
Oe T1FD 
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0.956 
-0.841 


1.000 
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0.102D-11 
0.222D-11 
0.571D-11 
0.112D-10 
0.192D-10 
0.300D-10 
0.43 7D-10 
0.613D-10 
0 «8240-10 
0.107D-09 
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INPUT DATA FOR CORE SAMPLE NO. 111 
PE PW VIS*T *Z Vis QG 
(PSIA)  (PSIA) (CP-DEG.R) (CP) (MSCF/DAY) 
BE FE IS FE BE ES EAS HE AE BIC IS IE IS DI SIS IS IS DIS BK IS IS OS DIE IS IS DIE 2S DIS BIS DIK OK 2S DI DIS SIS IS DKK OK OK 2K OK IS 2K OK 2K IS 2S IS Ix 
20.796 8.070. ' Os9220 OF. 0.175D-01 0.260D-02 
25-069 20-840 0.923D O01 O.175D-01 0.445D-02 
26.783 210975 O649220 OL 6. 175D-01 0.530D-02 
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TABLE C-8A 


A 4, Ae le Je 4, ale =! ka 
BE FE IS FE HS SE IE IES BIS FAS OE DE DIK FS PIS AE BIS DIE DIE 2S OIC IS BIE BIS OK OK OIE OIE OS DIK OK 3K IS OK DIS OK BIC OIC BIS IS 2S 3S BIC OIC OIC IS 2 2S 2 2s 2k 


RESULTS USING MODEL 1 


LEAST SQUARE PARAMETERS 


K=2 e444 MD. 
B=18.411 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSTA) X 


HE IE DIE AS PIE BIE BIS EAE AS IC FSC 2 IE DIS DIS AE IS AE KC IC DE KE 2S IC IS FE OKC BK OK IS DIC IE DIS OK OK DIS OIC OIC IS 2K IS OIC OS IS 2K 2g 3S IS 2c 2 


0.326D 00 “0<«193D OL -0.133D 00 
0.357D 00 -0.275D O1 -0.171D 00 
0-341D 00 -0.304D O01 =0.182D- 00 
0.965D 00 -0.471D O1 -04352D 00 
0-106D O1 -0.2546D Ol ~9.4398D 00 
0.813D 00 -0.141D 02 -0.726D 00 
0-881D 00 -0.170D 02 -0./781D 00 
0.911D-02 -0.201D 02 -0.810D 00 
-0.252D 00 0.2230, O62 -0.830D 00 
-0.655D 00 “042540 02 -0.851D 00 
-0.2102D O01 -0-280D 02 -0.864D 00 
-0.777D 00 -0.341D 02 -0-894D 00 
-0-170D O1 -0.406D 02 -0.908D 00 
-0.775D 00 -0.470D 02 -0.927D 00 
0-640D 00 ~§-.525D O02 -0.942D 00 
0.188D O1 -0.583D 02 -0.954D 00 


SUM OF THE SQUARES OF THE ERRORS=13.406 
ERROR VARIANCE=0.958 

EXPECTED LIKELIHOOD=0.266D-09 
DETERMINANT OF A MATRIX=02152D 05 
VARIANCE-COVARIANCE MATRIX 


0.543D-03 -0.206D-01 
-0.206D-01 0.-889D 00 
CORRELATION MATRIX 
1.000 -0.938 
-0.938 1.000 
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TABLE €<-&6 


J, v A, »! >! le ate whe 
HEE SES a IE ICC ICC AIC HE 2 aK A 2 ICI I OK aI 2 a a AEC HIE CHI a] OKC 2 I aK a a ai a ke 2 ca 


RESULTS USING MODEL 2 


LEAST SQUARE PARAMETERS 


K  =3.451 MD. 
BETA=0.156D 11 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSTA) x 
HK AE DE IS IK DS 24S BIS DIE DIK 2S DIK DIK KK DIK DIK DIK OK DIS BK DIK DIK OS DIC KK OIC OE OK DIK 2 OE IK OK OI DIS 2K DIK OK BIS IC IS BI DIE Ok 2K IS DIS DIS IS COE 2K 
-0.725D 00 -0.919D 00 0.262D-13 
-0.810D 00 -0.132D O01 0.7720-13 
-0.818D 00 -0.146D 01 0.108D-12 
~0.196D 01 -0.205D O01 0.144D-12 
-0.215D 01 -0.238D Ol 0.222D-12 
-0.265D 01 -0.657D Ol 0.674D-11 
-0.184D 01 -0.815D 01 0.148D-10 
-0.149D 01 -0.987D 01 0.300D-10 
-0.930D 00 -0.111D 02 0.463D-10 
-0.208D 00 -0.128D 02 0.787D-10 
0.297D 00 -0.142D 02 0.116D-09 
0.197D O1 -0.175D 02 0.253D-09 
0.160D 01 -0.208D 02 0.486D-09 
0.151D 01 -0.238D 02 0.818D-09 
0.677D 00 -0.263D 02 0.128D-08 
-0.185D 01 -0.288D 02 0.174D-08 


SUM OF THE SQUARES OF THE ERRORS=36. 509 
ERROR VARIANCE=2.608 
EXPECTED LIKEL IHOOD=0.878D-13 
DETERMINANT OF A MATRIX=0.507D~-14 
VARTANCE-~COVARIANCE MATRIX 

0.282D-02 0-615D 08 

0.615D 08 0.182D 19 
CORRELATION MATRIX 

1.000 0.858 


0.858 1.000 
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Be8.0 8=6—H 6 I a 
7 eed Riy: 
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Me ste He ok te she sick ste ste ste te gle a ¥ 
FB AS A AS AS AE AR AS AS AAR AS AAS AS AS 


3K 
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TABLE €=-8C0 


ate sh ale ole le gle bed ste ste cle 
He ERE Se He ak eS ie 


ESULTS USIN 


we 
7s 


G MODEL 3 


Ne ste ate ot Je whe she ste slo 
* aR 78 


AS AS AE AS AE OS 2K KK 


LEAST SQUARE PARAMETERS 


K 
B 


=2.737 MD 
=124219 P 


SIA. 


BETA=0.641D 10 I1/FT. 


ERROR VECTOR 


DESIGN MATRIX 
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(PSTA) X 
HE HE BIE BS EK DIS AE DIK IE BIE BS AS AK KS DK OS IC DIS BIS IS HE DIE IS DIS AIS DIE IS IS OK IS OIE OK OK 2S BIS OE OS DIS OK 2K IS OS OS 2K OK 22} 
0.807D-02 “GgtS1D OL =“Os539D°00 O0.158D-12 
0.170D-01 “O223160 01 =<06169D 00 0.3890-12 
0.105D-01 -0.240D 01 -0.180D 00 0.511D-12 
0.329D-01 -0.358D 01 -0.336D 00 0.884D-12 
0.386D-01 -0.415D 01 -0.380D 00 0O.127D-11 
-02999D~01 Osh bOD C2 +O47L1ID 00 0.190D-10 
0.279D 00 -0.134D 02 -0.773D 00 0.349D-10 
-02131D 00 -0.-160D 02 -0.809D 00 0.603D-10 
-0.904D-01 -04178D 02 -0.832D 00 0.84/D-10 
-0.961D-01 -0.204D 02 -0.856D 00 0.2129D-09 
-0.167D 00 “On2250 O02 -O48700 00 Ost 77D-09 
0.506D 00 “O4275D O02 =0.903) 00 0.335D-09 
-0.373D 00 ~“H.3270D O02 -O0e916D 00 0.5810-09 
-0.320D-01 “O43 76D O02 -+0.931D 00 O.910D-09 
0.315D 00 -0.418D 02 -0.941D 00 0.128D-08 
-0.158D 00 -0.461D 02 -0.946D 00 0.177D-08 
SUM OF THE SQUARES OF THE ERRORS=0.674 
ERROR VARIANCE=0.052 
EXPECTED LIKELIHOOD=0.590D O1 
DETERMINANT OF A MATRIX=0.507D-14 
VARIANCE-COVARIANCE MATRIX 
0.493D-03 -0.987D-02 0.868D O7 
-0.987D-02 0-209D 00 -0.164D 09 
0.868D O07 -0-164D 09 0.169D 18 
CORRELATION MATRIX 
1.000 -0.972 05951 
-0.972 1.000 -0.873 
0.951 -0.873 1-000 
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TABLE C=8D 


ale ste slr 5! le she slo slo ste ole ale gle ale gle slo slo gle slo slo ole ale Ate te ale ale ot, 
AE SE AK Sik ate ae sk ak otc atk ale ale ake sk sik aie ake it ac dik sic ste ie ole ole ale 
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RESULTS USING MODEL 4 


LEAST SQUARE PARAMETERS 


K 
B 


=2.15 


7 MD. 


=11.986 PSIA. 


BETA=0.-607D 10 1/FT. 


ERROR VECTOR 
(PSTA) 
HEE AK a aK ak 2 2 2 ak ak ak 2k ak ag ak ok 


Ov1 19D-0)] -0.944D 00 
-0.101D 00 -0.148D O1 
0.202D-01 “051630 01 
0.119D-01 -0.222D O01 
0.279D-01 -0.265D O01 
-0.748D-01 -0-866D 01 
0.245D 00 -0.110D 02 
~0.108D 00 “O'ei3s 5D 02 
-0.352D-01 -0.153D 02 
-0.635D-01 -0.178D 02 
-0.157D 00 -0.198D 02 
0-449D 00 -0-248D 02 
-0.363D 00 -0.299D 02 
-0-411D-01 -0.348D 02 
0.274D 00 -0.390D 02 
-0-.124D 00 -0.432D 02 


-0.829D-01 
-0.117D 
-02124D 
-0.211D 
-0.245D 
-0.565D 
-0.-631D 
-0.683D 
-0.711D 
-0.741D 
-0.759D 
-0.788D 
-0.801D 
-0.804D 
-0.801D 
-0./94D 


SUM OF THE SQUARES OF THE ERRORS=0.539 


ERROR VARIANCE=0.042 


EXPECTED LIKELIHOOD=0.252D 02 


DETERMINANT OF A MATRIX=0.148D-14 


VARIANCE~COVARIANCE 
0.608D-03 
-0.122D-01 

0.992D O7 
CORRELATION MATRIX 

1.000 

-0.970 


0-964 


MATRIX 

-0-122D-01 0.992D 
0-260D 00 -0.191D 

-0.191D 09 0.174D 

-0.970 0.964 
1.000 -0.898 

-0.898 1.000 


DESIGN MATRIX 


* 
+ 
+ 
% 
% 
* 
* 
% 
% 
3% 
% 
% 
% 
Bid 
* 
% 
* 
* 
* 
* 
% 
3M 
% 
3 
3 

% 
+ 
M% 


0.13/7D-08 
02187D-08 


O7 


09 


18 


1 oe Fea aN Ae oe a a a a a a aa a ae 


ne Se a Re Rae eae ame a ae ae ne ae aoa 


S1-0€ 81.90 

[-FOb 60 - 
. (~UNERSO 
S1-US VeRO | 
Li- 141.0 
O1=G@S§ o® 
U1-0804,.0 
OL-a807 60 
OL~OTVV R60 
PO-OV aL gO 
HOS 60 
VO-O8TE «0 
| poll Pet &4,0 
POG 82.4) 
HO-OV Ele @ 
6O-OT BLe0 


To asee.0 ~ fOeass too Ep 
Lek gt» (00 0088.0 LomOss 
aT 1.0 


e0 


a | 


ATAT AM wat2ao. 


Peery ereret 


“ateo AAT 


~ 


> j900M aMbay 2TaueMm = 


_2AaTIMASAG SAMY ei | 
se Aauoe 


: eALe4 igeetee° a . 
“TAM Of OF0d40maTaB 


x 


10-0es.0% @ epee. 
OO GTifs= Ff . 
OO U@S1s0- 
GO. ee 


00 O11 60> re eleese . 
. REATAM wor TAs3A90° 
*2000 OTR 00008 
 8RB.0- 000,51 «OT eyo 
Pe a Hf 


97.580 
1152329 


PW 
PSTA) 


13.320 
13.438 
13.438 
13433 
13.330 
13.330 
34359 
13399 
13.2531 
13-477 
13.2590 


HE 2 He aK IC HE aI CK a 


INPUT DATA FOR CORE SAMPLE NO. 


FABLE C=9 


te ste st, 


VIS#T *Z 
(CP-DEG.R) 


= 


0.926D 
0.922D 
0.923D 
0-926D 
0.929D 
0.929D 
0.929D 
0-929D 
0.928D 
0.929D 
0.930D 


> le ple Sle Sle sle De gle ste ste 
AB FE ARAB AR AS AS AS AS AS AS 


AS AS 76 AS 


Ae x. 


VIS 
(CP) 


0.176D-01 
O«i 15D-01 
0.175D-01 
Os. L76D=01 
0.176D-01 
0.1/76D-01 
0.176D-01 
0.176D-01 
0.176D-01 
0.-176D-01 
0.176D-01 


se Se Sle she ale ste she 
AE ABR AS AE AE AS AE OK 


1 


bad ie ste Me sie Skink steok shale nie ok sk ok ok sie ae sk ok ok He She 2K He sk ok ok 3K ok Je x 


aK Se SKK sek oboe Pa nip wpm de oor 


sle le 
a8 8 


2S 2 BIS F< 


ste ste ste cle Sle Sle ale 
a5 aS 


J, 
AS AIS AR FRAKES FS 


QG 
(MSCF/DAY ) 


ae 4 


0.510D-02 
0.661D-02 
0.136D-01 
0.209D-01 
0.401D-01 
O69 LED-OT 
0.204D 
0.344D 
0.433D 
0.546D 
0.714D 


4 J, 4, J, U J‘, 
boo de Ss ae aan aps ds abd 


ay ; Y oat 


ye ema sear 


a ae ie ame a RRR RR 


Sif 30M as86a2 RROD ROA, tors rant ee: 


aT ety Sa Tee Ty i 
(YAO\IZeM) _ 2 ey Memes 2 aka) 
we Me Seale ae a a Roa ie oh aie a oe ae Dea geo ae eae 


So-0042.0 Lomdart.s? £0) ‘ hat 
SO-0160.0 | 16~8TE.0 FO) Oo 
{O-USEL6O DPOSOHeTIG 10 OESCLO 


| LO-G@08.0  f09G6TE.9 10 
10-0 F060 fO-GaTi.O0 £0 5 : ; 


19=OL£0.0- ppetompe s3 {0 

00 CROS*O f£O-06TE 60 Bd 
00 CARE gO oO om 

00 GEEASO- i 


OO Gare Os 
oO conn ee 4 


a hha. - 
-) 124 my >? . 


a Le 
4 Gare, o 
a: abe ae +4 He), in : 5 ep ae 
, ee 2 Weg. a... Whe inna 


a is a ee ty, ) a! $ . " 4 
er Gaus Bei |. us ‘h aes 
é Lilies 7 af * ral 3 7 oe 7A : 
Z. ay “4h i. /Gelruege . 7 
: ‘a? ‘aba 4 i » ee as ; 
eye a oe Le ae 


th eee | a Ri gah, 


ag oe ae 

ee ee 

a . 2 - Par) dim Tae 
‘ Vhs “ 
7h ' u ‘ Py) Li 
! 

: : aie 8¢ cf 

} ‘ ‘ ae 


tay! 
ite hue # 
des, Gage hee ie 


‘oe a 7 ili g 


TABLE C=9A 


le slo we le she ste sh, 


CST 


we se 5! ste ste st ste le cle gle ste tle Se sle se sle ste ale ale ote cle ste ste ole ale le ste ste she gle ste ale ste gle ale ale ste ste ot, le ste Se Sle wt 
He PIS HS HIS YE AS HK BIS FS DIS BIS IIE AIS IS BI AIS DK AIK DIK BIS DIS SIC BS DIK BIS BIS BIS IS DIK OIC DIE oie OI aI aI aie ak aie ais alk akc ax af alk als oie ok ot ole sie ole ste 


RESULTS USING MODEL 1 


LEAST SQUARE PARAMETERS 


K=8.e372 MD. 
BSh(.591 PSIAS 


ERROR VECTOR DESIGN MATRIX 
(PSIA) Xx 


HE IE AEC HE A A SE A a OK 2K 2K CRC IC CK I ICICI 2 IC EE BIC I AIC ICICI 


0-466D 00 -0.463D 00 “0 ¢1356D 
045120 00 -0.574D 00 -0.165D 
0.740D 00 -0.1030 O1 -0.281D 
0./759D 00 -0.2142D Ol -0-.364D 
0.745D 00 “O«2i50 Ot -0.503D 
-0.120D 00 -0.330D Ol -0.641D 
-0.103D 01 -0.481D O01 -0.749D 
-0.917D 00 -0.612D O01 -0.812D 
-0.965D 00 -0.678D O1 =~ 48320 
+“0,.522D 00 -0.755D Ol -0.857D 
0.205D O1 “0.8550 O01 


-0.898D 


SUM OF THE SQUARES OF THE ERRORS=9.469 
ERROR VARIANCE=1.052 

EXPECTED LIKELIHOOD=0.440D-06 
DETERMINANT OF A MATRIX=0.614D 02 
VARIANCE-COVARIANCE MATRIX 


0.750D-01 -0.558D 00 
-0.558D 00 0.439D Ol 
CORRELATION MATRIX 
14000 =-0.6972 
~@4972 1.000 


Shy Aa | yz 


i vi . =" 7 \ 
=p we a e ‘ % a 

waey a bad Gi 

+ or A tag 

j et) 4 A - at ie 
nesD AUBAY 


CoeMaeseusese eee conv MRenemm~net gente 
J sem Ouray hac 


_2R3aT3MasAe anauoe Tends ay ul | 
oe : ¥ aah 


0 GM. ST Esse | 
a “wAhl2s seeuviee ash 4 


ADITAN at eis Pe Tae 


i -gncueeuneuenvoneenemunee ue 


00 O68 L.0— 
00 Ueleded= 
OO G LBS —ti~ 
OF OAOE oO 
O10 CEO y= 
OO Of» 
HO URS . Os 
OO GS 18e0+ 
O GSE8.0+ 
OO OF eR.0= 
00 C828. 0= | 


TABLE C=8B 


Sle ste ale gle Se ste Sle ale slo ole Ste le gle ot le ste ste slo ale 5! le ste se sie ot |, vay te sh 
4 Fe TIS HK Bic Bh Be OS ISIS Sie ais ake ais She Sie Sie ale ste ale Sie Sie sie sie Sle ste stent 4 


AE AE AS AT AS AIS 35 Hy 
RESULTS USING MODEL 2 


Me ste se ste ste gle gle she slo gle 
<3) SAS > 


i acai aa 


LEAST SQUARE PARAMETERS 


K =14.549 MD. 
BETA=0.711D 10 1/FT. 
ERROR VECTOR DESIGN MA 
(PSIA) X 


1 Se ste Sle Se ste gle se ale wie ol he ps =f ‘ te st ‘ he sha ok 
HE DIK DIK PIS DIE IK DIS BEDI DIS OIE DIS DIS HK AS OK OK DIK DIS 2K OS OI DIS DIS DK OIE DIS OI 24S DIS DIS DIK IK OS OK 2K OIC OIE 2 2 OI 3x 


-0.273D 00 -0-146D 00 
-0.336D 00 -0.180D 00 
-0.520D 00 -0-320D 00 
-0.651D 00 -~0.438D 00 
-0-663D 00 -0.674D 00 
-0.498D 00 -0.108D O01 

0.191D 00 -0.163D Ol 

0.722D 00 -0e 2078 . Ob 

0.366D 00 -0.228D Ol 
-0.201D 00 -0.251D Ol 
-0.250D 00 -0.278D Ol 


SUM OF THE SQUARES OF THE ERRORS=2. 363 
ERROR VARIANCE=0.263 
EXPECTED LIKELIHOOD=0.454D-03 
DETERMINANT OF A MATRIX=0.414D-16 
0.447D-01 0.795D 08 
0.795D 08 0.179D 18 
CORRELATION MATRIX 
1.000 0.889 


0.889 1.000 


sc ste syle se slo ste Je ale le le 
AAR AS AB AS AS AS OS AR AS 


TRIX 


sle she ale Je cle ale she gle ale 
FE FR AK AE AE A AE AE AS AS 


Oe 560-12 
Oa 2020412 
O0.109D=11 
0.259D-11 
0.938D-11 
0.466D-10 
0.216D-09 
0.567D-09 
0.856D-09 
0.129D-08 
0.206D-08 


“aero aay Sore 
-onnehwmihanes enennnonbaaieetaaliinieeh eta 
~'S s200% oMteD Bt weae ae 


Tah 
’ : ay ed 


203 T IMA SAS anauoe vena : NY 


bes ‘ 
ACC Cot ahe a ae 
TINE OF deviate ie i 
tate: no12sq - | 
| x 


eee. . fer. St st 


i-Ud@ hed? 
| “ALISO S of), 
1 1+O@ CL sO 
{1-088 00! 
i L-VBER sO: 
us “i AGH 6 O 
¢0-08 1840 
POn1T Se 0 
C0-CA88.0 ey 
SO-O005 fe 
2-GO0S 60 


G59 


TABLE C=-9C 


A. te sh. A, 4, A, 4, Je A |, A, te sh J, A J, f J‘, te J. J, A te si. J, J, A, A, A, A, le 
ie as Denies AAS aye aes aye OES ER ays DES AR aye MINIS pS OS ON Seon eye Ne Dew) Dit One SHE CSIC Dee Sic cSt oie She Sie Sle (Ste she te she she ol ste ake ie ole siz ste 


RESULTS USING MODEL 3 
LEAST SQUARE PARAMETERS 
K =11.722 MD. 

B =6.229 PSIA. 
BETA=0.510D 10 1/FT. 


ERROR VECTOR DESIGN MATRIX 


(PSTA) X 
eae oe a he aie a as fe a ae fe ae ae IE aK aK a 2K aK a aK 2 IE KC aK OK aK 2 KK aK ak aK ak akc ok 2K a ae ak ak a a aK aK ak ok afc 3k 
0.274D-01 =-04230D 00 =-0.932D 00 0.898D-12 
02121D-01 -0.284D 00 -0.160D 00 0.144D-11 
0.863D-02 -0.507D 00 <-0.270D 00 0.527D-11 
-0.375D-01 -0.695D 00 =-0.350D 00 0O.111D-10 
0.112D-01 -0.107D OL +0.489D 00 0.32/D-10 
-0.-107D O00 -0.168D O01 -0.641D 00 0O.117D-09 
0.294D-01 -0.2500: 01 -0.763D 00 0O.390D-09 
0.314D 00 “0.3170 01 -0.826D 00 0.835D-09 
-0.340D-01 -0.350D 01 -0.841D 00 0.116D-08 
-0.402D 00 -0.386D O01 -0.858D 00 0.161D-08 
0.182D 00 -0.429D O01 -0.884D 00 0.234D-08 
SUM OF THE SQUARES OF THE ERRORS=0.309 
ERROR VARIANCE=0.039 
EXPECTED LIKELIHOOD=0.108D 02 
DETERMINANT OF A MATRIX=0.538D-17 
VARTIANCE=COVARIANCE MATRIX 
0.105D 00 -0.2710 00 0.-102D 09 
-0.271D 00 0./26D 00 -0.249D 09 
0.102D 09 -0.249D 09 0.111D 18 
CORRELATION MATRIX 
1.000 -0.982 0.945 
-0.982 1.000 ~0.877 
0.945 -0.877 1.000 


r= 


eT ce | 


2@*9 FAT 
ORCA A A SS ae oe a a a a a EN A a a ARC ia ae aa rsa a ate 
a - “7 , a ie 
& JA004 OMTeU eT eeaR | 


_ 2837 MARS BIRO T2ARS 
ty 


o (IM SSTefl=. ; Le . aa 
ghI29 O8Seae° 8 | ei 
TANT OF ee ee | 


uy Tae wo1eae 
SoS ee a A a . 


< [=U RO GeO 
(T=(dpieO = 
f(+OvSé.o 
Gi~G£0Pe0 
1f-07SE.O 
PO-OVEL«O 00 
COOP E SD 

2 O=UO€ &e0 
40-4 EL gO © 
KO Ld LO | 
4H OC PE SO 


e ‘ 


¢ 


AS01460 ” 0 O1NE.0% 90 020140 

20 nee 40~ 00 G8ST,0 00 GITS.0= il 

el mere Ro OP AS o0— 20 USOL,0- 
TAM sonraseati 

Bet $8240 000.1 

TT8.0= OONst . SB%.0- 


€ mi ‘ in 


“® 


* 


ste 


le ste sie 


SAR AS 


sie ste ste slo slo ste ste cle cle gle StL 
HS AYR FS AR AS AE AS AK AS OS AS 


TABLE -C~=90 


ste ste si cle sle ste ate ste 
FS AE AK AS AR AS AS AS 


she Sle ate 
AR AK AS 


ye 


le ste ste se ste 
i er 


RESULTS USING MODEL 4 
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APPENDIX D 


ANALYSIS OF THE STEADY LINEAR GAS FLOW 


In order to estimate the non-linear parameters 
for the models stated in Chapter 3, the function and 
its derivatives with respect to the parameters must be 


stated explicitly. 


Model A 
This mathematical model corresponds to the 


following two-parameter model obtained before, 
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OF 


P, = v(W, a) 


where the parameter vector is 
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Let the expression in brackets given in Equation (D-1) be 


called "value 1", hence the derivatives can be written 
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Model B 
When slippage effect was neglected, the following 


two-parameter model was obtained: 


a, 2 ad * O75 Ne 
Baye [p. > 2(F + BW) A R/M HE aad (D-4) 
or 

Pp, = o(W, a) 
where 
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a= 
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Let the expression in brackets in Equation (D-4) be "value 2", 


then the derivatives are given by 
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Model C 


For the general three parameter model the function 


was written as 


i tau 
ay 
7 


a 
: 7 ) 5S Ghay 1; 7 
y ie mice = 
a, 7 
» 


aj 
patwoiloy Sry bevaatgen ‘enw FoetRS avengata 7 
banka deo: “BBW ‘Taboit xed omeds 


: . Ww : ; 
) , 5 a > - » 3 nS f 


de 8 0 ae vat war MA “awa +8 + ih 


“ ined ak ms sh car 
‘ “¢ oitlev” of ($-4) aadtd nue mu iets pend wt sofavoxgrs 
: 4 : $ ey a Cia ; of Ni ae : T 7 - . | 


a i i Parera 
Ra i! 7 it are a ar 7 ne - 3 , i 0 ys a ib _ ; 
7 9 


; By 8-0r) mee. ae 
eran: ‘gual wi i balls 2 tuiey) x. 
(a-@) E Uy Sy % ae 8) Sd ines ,* Ad 


niet ili Loire resengadi! 28 


tw 


* q £. ; i ’ 


D3 


0.5 
2(F + BW) >A R/MLW ee 
Pe~ |Pyt 1 I 
es 2BWb- BWbo+p,, (7+ BW) eee 
K eer 2 En pe 
K(po-Py) —- B+. (E+ BW) e *w 
(D=7) 
or 


P, = £(W, a) 


where the design parameter vector is 


Let "value 3" be the expression in brackets in Equation (D-7), 
then, the corresponding derivatives with respect to the 
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Model D 


This fourth mathematical model, which represents 


the same general model for the linear case, was stated 
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The derivatives with respect to both the parameters and 


the state variable, are given by the following expres- 


sions: 
OO. Pavg Tavg 4 avg ae 
a) aaa 5 (D-19) 
Miveatp, t b) 
u z Z R wW/A 
acne avg avg avg 
b) as i. (D-20) 
Mk (p + b) 
(w/A)* z Ree 
c) aa = avg __2v (D-21) 
0B Mp 
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2 ae ee Dee Ba0/B. _B(w/A) ew nee 
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It is to be noted the simplicity of the derivatives 
when considering the ordinary differential equation 
rather than the rigorous model in algebraic form. 

Input data and results obtained using each model 
for all the core samples shown in Table 3-3, are given in 


the following pages. 
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TABLE D-1 
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PRE FE HEE HE TIS FS BIE ISS AE IS OS IS BIS IK FISK FS DIC OE BIS SIE BIS IK OK OKC OE IS AIK IS OIE IS DIC DIS OK OIE OIE OIE 2 


INPUT DATA FOR CORE SAMPLE NO. 9 


RUN 18 

PE, PSFA. 

PW, PSFA. 

VIS*T¥Z/GCy LBF-SEC/FT**2-DEG. Re 

VIS, LBM/(FT-SEC). 

MASS FLUX, LBM/(SEC-FT**2). 

PE Pw VIS*T*Z/GC VIS MASS FLUX 

HE DS EAE IE TE IE DIE OIC AS DS BIE SE OK DIE 2K DIS IE BK DIK SIS DIS IK IE DIK OIE DIS OK OIE IS IK OI 2IC SIS OIC OK 2 DIK OIC IK IK BI 2K 2S OK OK 2K 3K 2K Kk 3g 3k 
17941.91 1929.12 0.202D-03 0.120D-04 0.387D-04 
22248.90 1930.50 0.202D-03 0.121D-04 0.561D-04 
26526630 1931611 0.202D-03 0.121D-04 0.771D-04 
30803490 1931.90 0.202D-03 0.1210-04 0.101D-03 
38004621 1931.90 0.203D-03 0.121D-04 0.148D-03 
45146.80 1932.51 04+203D-03 04.121D-04 0.203D-03 
52346280 1932.50 0.4.203D-03 0.121D-04 0.267D-03 
59360.81 1933.61 0.2030-03 0.122D-04 0.3370-03 
66605410 1934.70 0.204D-03 0.122D-04 0.4200-03 
73805641 1935.00 0.204D-03 0.122D-04 0.513D-03 
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TABLE D-1A 
MEE AE BE AE OK CA ES ECE DK REO BKK BI BEDI BIS KB BK BOI I I 2 KC AE A OI 3 2K 22 2 2S 2K 9K 2 aK 2 aK 
RESULTS USING MODEL A 


LEAST SQUARE PARAMETERS 


K=0.042 MD. 
B=28.399 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSFA) xX 
3 ESC 3 aK aK aca ak kc aK i aK 2c a ake aK aK 9K kak ak aK aK af aK of ak ak af ak ak aK 2 ak 2k a 2k ak ak ae ae aK ak ak ak ak aka ae aka 2k 

-0.707D 02 -0.278D 20 -0.889D 00 
0.317D 02 -0.328D 20 -0.915D 00 
-0.228D 02 -0.377D 20 -0.926D 00 

-0.315D 02 -0.426D 20 -0.936D 00 
0.-180D 02 -0.507D 20 -0.950D 00 
0.187D 02 -~0.587D 20 -0.958D 00 
0.-217D 02 -~0.667D 20 -0.963D 00 
0.2.156D 03 -0.744D 20 -0.970D OO 
0-541D 02 -0.826D 20 -0.972D 00 

-0.181D 03 -0.909D 20 -0.e971D 00 


SUM OF THE SQUARES OF THE ERRORS=0.688D 05 
ERROR VARIANCE=0.860D 04 
EXPECTED LIKELIHOOD=0.198D-25 
DETERMINANT OF A MATRIX=0.102D 00 
VARITANCE-COVARIANCE MATRIX 

0.207D-07 -0.922D 04 

-0.922D 04 0-456D 00 
CORRELATION MATRIX 

1.000 -0.948 
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TABLE D-18 


BEAK IR FE AEE BE SE IS IS IE AE OE IS TIS OE AK OE IS IS 3K IC 3S OI OS OIC OIC 3 2Ie Ig 2K ae 3k 
RESULTS USING MODEL 


sie >; 
as 


LEAST SQUARE PARAMETERS 


K =0.054 MD. 
BETA=0.722D 13 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSFA) X 
BEE IE AS FE IR FE IS IIS AS BIE TKS BIS DIK IE OS OE ISK EE ISIC BIE IE SIE SIE DIS DE IS OK DIC OS 3S DIK 2K OK OK 3S OC IK 2 IS 2K 2K 3g 2fc ic 2c 2c 2K 2c 2 ofc 
-0.104D 04 -0.160D 20 0.172D-10 
-0.661D 03 -0.193D 20 0.300D-10 
-0.410D 03 -0.226D 20 0.482D-10 
-0.147D 03 -0.258D 20 0.721D-10 
0.267D 03 -0.310D 20 0.127D-09 
0.500D 03 -0.360D 20 0.202D-09 
0.567D 03 -0.410D 20 0.302D-09 
0.570D 03 -0.455D 20 0.422D-09 
0.122D 03 -0.502D 20 0.579D-09 
-0.713D 03 -0.548D 20 0. 7700-09 


SUM OF THE SQUARES OF THE ERRORS=0.321D 07 
ERROR VARIANCE=0.401D 06 
EXPECTED LIKEL IHOOD=0.906D~34 
DETERMINANT OF A MATRIX=0.2175D 00 
VARTANCE-COVARIANCE MATRIX 

0.2152D-05 0-150D 10 

0.150D 10 0.181D 25 
CORRELATION MATRIX 

1.000 0.908 


0.908 1-000 
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TABLE D-1C 
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SEEK IE aK IC aK aKa ak aK IC aK aI aI 2c aK aK ok af akc aI 2K akc a a ak ak ak ak ak ak ak akc a ak 2k 2 ak ak ak ak afc af akc ak akc ok ocak 2k 


ERROR VECTOR 


=0.0412 MD. 
=31.558 PSIA. 
BETA=-0.899D. 12 1/FT. 


RESULTS USING MODEL C 


LEAST SQUARE PARAMETERS 


DESIGN MATRIX 


(PSFA) X 
BEE DE AE AAS BS BE BE IS IE IS SHE SK EIS I DIE OIE OE IS DIE BIE OC SIS DIS IIE IC OK DIS OIE IS OI SE OE IS AE DIK DIE OIE IE FS AIK OIE IS IC AE DIE DIE IC DIC IE OIC IK ac 
0.963D O1 -0.-203D 20 -0.613D 00 0.189D-10 
0.593D 02 -0.-252D 20 -0.664D 00 0.321D-10 
-0.649D O01 -0.302D 20 -0.706D 00 0.504D-10 
-0.372D 02 “023520 20 =-O02736D 00 0.743D-10 
-0.288D 02 -0-435D 20 -0.779D 00 0.128D-09 
-0.451D 02 “0.5190 20 “866110 00 0.203D-09 
-0.409D 02 -0.603D 20 -0.836D 00 0.303D-09 
0.100D 03 -0.684D 20 -0.854D 00 0.425D-09 
0.615D 02 -0.770D 20 =0.873D 00 0.586D-09 
-0.665D 02 -0.858D 20 -0.890D 00 0./86D-09 
SUM OF THE SQUARES OF THE ERRORS=0.278D 05 
ERRGR VARIANCE=0.397D 04 
EXPECTED LIKELIHOOD=0.157D~23 
DETERMINANT OF A MATRIX=0.204D-02 
VARITANCE-COVARIANCE MATRIX 
0-225D-06 -0.681D-03 0.166D 09 
-0.681D-03 0.214D 10 -0.482D 12 
0.166D 09 -0.482D 12 0-130D 24 
CORRELATION MATRIX 
1.000 -0.981 0.969 
-0.981 1.000 -0.912 
0.969 -0.912 1.000 
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TABLE D-2 
HE BE HE BK BIE BIE OIE IS DIE OIE OK BIC AE IS IK BK 2 OE 2K BK OK DIS IK IS OC OIC OIC OIE DIS OK FIC OK DIE IS IS IS OIC IS BK AIC DIS DIC IK BIC 2K OIE IK OI I 2} 
INPUT DATA FOR CORE SAMPLE NO. 5 
RUN 11 

PE Pw VIS*T*Z/GC VIS MASS FLUX 

2K AK PE AE HE SAE HE DE DE FE IE IK OE OK IS IS OIE OIE BIE DI OS DIS BIC DIS AK DIE OIE SIS OK OIC OIE OI OK OK OIC AIK OK IS IK IK OK IK 3k 2K afc Ik 2K 2k 
5594.50 1958.06 0.201D-03 0.120D-04 0.436D-04 
7764.48 1960.85 0.202D-03 0.120D-04 0.844D-04 
10673260 1960.85 0.202D-03 0.120D-04 0.155D-03 
13605.00 1961441 0.202D-03 0.120D-04 0.245D-03 
17974220 1961641 0.202D-03 0.1200-04 0.419D-03 
23705641 1978.69 0.202D-03 0.1210-04 0.687D-03 
30847.80 1990.21 0.202D-03 0.121D-04 0.116D-02 
38048.10 1997.41 0.203D-03 0.1210-04 0.172D-02 
52246022 2047481 0.203D-03 0.121D-04 0.312D-02 
66761440 2122.69 0.204D-03 0.1220-04 0.486D-02 
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TABLE D=-2A 
2 AE A AK I HS SFIS HIS AEP BE KK BIC 2 2K IC DIS DS 9K aK aK aK 2K 2 2 2 2 OK 3K 2 2K 2K aK 2 ak 
RESULTS USING MODEL A 
LEAST SQUARE PARAMETERS 


K=0.524 MD. 
B=16.078 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSFA) X 
HE BE HH AEE BEA A A 2 BI AK 2 2 DK A 2 CD I DK SKIES C2 IC 2 OK BK A AK A 3K KI OK aK aK aK 2 aK aK 2K aK 


0.255D 03 -0.699D 18 -0.681D 00 
0.193D 03 -0.954D 18 -0.767D 00 
0-121D 03 -0.126D 19 -0.826D 00 
0-815D 02 -04155D 19 -0.861D 00 
-0.167D 03 -0.198D 19 -0.883D 00 
0.836D 02 -0.249D 19 -0.920D 00 
-02353D 03 -0.318D 19 -0.925D 00 
-0.397D 03 -0.384D 19 ~0.938D~00 
~0.2950D 03 ~O065120 19 -0.955D 00 
0.572D 03 -0.635D 19 -0.977D OO 


SUM OF THE SQUARES OF THE ERRORS=0.855D 06 
ERROR VARIANCE=0.107D 06 

EXPECTED LIKELIHOOD=0.671D-31 

DETERMINANT OF A MATRIX=0.2225D 00 
VARTANCE-COVARIANCE MATRIX 


0.394D-04 -0.952D-02 
-0.952D-02 0.297D Ol 
CORRELATION MATRIX 
1.000 -0.880 
-0.880 1.000 
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D13 
TABLE D-2B 
MERE AE BK DK SIE BIE BE BK BK AK IC AKASH AE EC BKC 2 2 2 DIS BIC aK aK aK IC 2 2K 3 BIE KK 2K I KC 2K 3 2 CC BK aK i 2K aK 28 ak 
RESULTS USING MODEL B 
LEAST SQUARE PARAMETERS 


K =0.645 MD. 
BETA=0.658D 11 1/FT. 


ERROR VECTOR 


(PSFA) X 
HE HE DIE HE AS IE A DIE IC BIS FE TIE DIK IES TE OK IE OIE IS OK IS OIE 2K IE IC OIE OIC 2K DIS OIC BIE OE OK DIE 2S OIC DIK DIK 2K IK 2K DIK OK BE IC AK OIE 2K OK OK OK 2K OK 


DESIGN MATRIX 


-02536D 03 -0.401D 18 0.684D-10 
-0.558D 03 -0.572D 18 0+ F890=09 
-0.487D 03 -0.784D 18 0.4/76D-09 
-0.347D 03 -0.989D 18 0.944D-09 
-0.277D 03 -0.130D 19 0.212D-08 
0.276D 03 ~0.1650 19 0.443D-08 
0.221D 03 =O421390 19 0.959D-08 
0-350D Q3 -0.258D 19 0.172D-07 
0.178D 03 -0.340D 19 0.410D-07 
-0.198D 03 -06413D 19 0. 776D-07 


SUM OF THE SQUARES OF THE ERRORS=0.135D O07 
ERROR VARIANCE=0.169D 06 

EXPECTED LIKEL IHOOD=0.681D-32 

DETERMINANT OF A MATRIX=0.235D 00 
VARIANCE-COVARIANCE MATRIX 


0.138D-03 0.967D 08 
0.967D 09 0.887D 20 
CORRELATION MATRIX 
1.000 0.875 
0.875 1.000 
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TABLE D=-2C 


AEE RE BE BI FI BIC A BIC AE A A C RSIC IC C A  I 2K 2 2I OK. KAIC BK aK K K 2K aK 2K 2 2 3K 2K Ka aK 2K 2K 2K 2 2K 2 2K 2K ak ak 3K 3k 
RESULTS USING MODEL C 


LEAST SQUARE PARAMETERS 


K =0.572 MD. 
B =9.919 PSIA. 
BETA=0.319D 11 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSFA) X 
HEE AS HS BIS HE BEE RS OE FS BIS IE IEA FE DIS OS BE OK IS TE 3S 2S AIC IC BIE I IS OE IK DIS OIC IS DIK BK IS OK DIS 2K OIE IS SK KS IS KC 3S 3S 2K 2S OK OI 2k Ie 2K 
-0.141D 02 -0.405D 18 -0.473D 00 0.7530-10 
-0.2358D 02 -0.601D 18 -0.580D 00 0.203D-09 
-0.345D 02 -0.850D 18 -0.666D 00 0.500D-09 
0.290D Ol “Gs.tfSD 19 +857290 00 0.4975D-09 
“6.9130 02 -0.146D 19 -0.778D 00 0.215D-08 
0.247D 03 -0.189D 19 -0.805D 00 0.444D-08 
-0.153D 02 -0.248D 19 -0.843D 00 0.955D-08 
“0.1370 02 “043040 19 =-06657D 00 O0O.171D-07 
-0.118D 03 -0.409D 19 -0.866D 00 0.409D-07 


0.555D 02 “0.508D 19 =-05855D 00 0.780D-07 
SUM OF THE SQUARES OF THE ERRORS=0.894D 05 
ERROR VARIANCE=0.128D 05 
EXPECTED LIKELIHOOD=0.455D-26 
DETERMINANT OF A MATRIX=0.2160D-01 
VARIANCE-COVARIANCE MATRIX 
0.682D-04 -0.931D-02 0-363D 08 
-0.931D-02 02-144D O01 -0.456D 10 
0.363D 08 -0.456D 10 0-218D 20 


CORRELATION MATRIX 


-0.939 1.000 -0.813 


0.941 -0.813 1.000 
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TABLE D-2D 


he ste ale ‘. ~ I! SI te 
EAE AE HE SAE IS IS IK IK OK A FE IK OK OIE OK IK 2K 2K Ox 


3 
RESULTS USING MOD D 
LEAST SQUARE PARAMETERS 


K =0.570 MD. 
B =10.124 PSIA. 
BETA=0.281D 11 1/FT. 


O15 


2K A A AE aK A I OK HS OK 3K aK aK aK KK 


DESIGN MATRIX 


(PSFA) X 
MK IS DK IK DIE AS OS I IS DIK IS IE BIE 2S IE IS DIS IK A DIE OE OS OI SIE IK AIS BIC IK FS AE OK DIK OIC DIK IK BS OK OK OK 2S BIS OK OIC OK 2 AC OK AK OS DIK IK Og OK 2K 
-0.104D 02 -0.475D 04 -0.516D 00 0.829D-10 
-0.352D 02 -0./01D 04 -0.630D0D 00 0.222D-09 
~0.359D 02 “O.961D 04 +Os47170 00 0.541D-09 
0.202D O1 -02125D 05 -0.769D 00 0.105D-08 
-0.101D 03 -0.165D 05 -0.819D 00 0.228D-08 
-0.190D 02 -0.276D 05 -0.883D 00 0.994D-08 
-0.2124D 02 -0.336D 05 -0.907D 00 O.177D-07 
-0.112D 03 -0.451D 05 -0.963D 00 0.425D-07 
0.521D 02 -0.561D 05 -0.104D 01 0.816D-07 
SUM OF THE SQUARES OF THE ERRORS=0.927D 05 
ERROR VARIANCE=0.2132D 05 
EXPECTED LIKELIHOOD=0.379D~-26 
DETERMINANT OF A MATRIX=0.786D-05 
VARIANCE-COVARIANCE MATRIX 
0.597D-04 -0.816D-02 0.295D 08 
-0.816D-02 Os1Z26D O1° -O04363D 10 
0-295D 08 -0.363D 10 0.172D 20 
CORRELATION MATRIX 
1-000 -0.935 O2923 
-0.935 1.000 -0.776 
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TABLE D=-3 
BE SOK OIC aK ak ak aK aK akc ac akc ok a aK 2k weak ok 
T DATA FOR CORE SAMPLE NO. 
RUN 5 

PW VIS*T*Z/GC VIS 

3k HEC IK IK 3A aI OIC 2K OK a 2 aK a 3K aK ae ak a af ak ak 
1963.35 0.201D-03 0.120D-04 
1962.80 0.201D-03 0.120D-04 
1962.24 O.201D-03 0.120D-04 
1961.68 0.201D-03 0.1200-04 
1960.29 0O.201D-03 0.120D-04 
1973.86 0.201D-03 0.120D-04 
1993.79 0O.2010D-03 0O.120D-04 
2058.59 0O.201D-03 0.1200-04 
2129.75 O0O2-202D-03 0.120D-04 
2288.15 O0.202D-03 0.120D-04 


HE AE IS IS HE BE FS IS BK DIS OIE AIS DIE BIS AS OIE OS OK OIC 2 


0.195D-03 
0.282D-03 
0.380D-03 
0.680D-03 
0.149D-02 
0.256D-02 
0.390D-02 
0.638D-02 
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TABLE D=3A 
Be ae a a 2 a ah a age a fe 2 2 a ak ak ae ak ak a ak a af ok 2 ak 2 aE a ak 2c ai 2 a i a ok 2c a a ak akc ok 2k ai a ok ak ake ae aka 
RESULTS USING MODEL A 
LEAST SQUARE PARAMETERS 


K=8.044 MD. 
B=4.032 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSFA) X 
Re CC aK a a a a a ac a oi ak akc a 2 a ae ag a a a ok a oa a ok oe a a af a a a fe af ok ae af af ak ak ak ofc af akc 2k 

0.2112D 02 -~0.911D 16 -“0.271D 00 
0.153D 02 -0.2135D 17 -0.374D OO 
O02 165D 02 -~0.188D 17 -0.474D 00 
Oni TIO 02 -0.234D 17 -0.545D OO 
02149D 02 -0.278D 17 -0.599D OO 

-0.377D O1 ~0.381D 17 -0.688D OO 

-0-297D 02 -0.570D 17 -0./81D OO 

-0.307D 02 -0./748D 17 -0.828D 00 

-0e251D 02 -0.922D 17 -0.857D 00 
0.426D 02 -0.118D 18 -0.884D 00 


SUM OF THE SQUARES OF THE ERRORS=0.545D 04 
ERROR VARIANCE=0.681D 03 
EXPECTED LIKEL IHOOD=0.640D-20 
DETERMINANT OF A MATRIX=0.2136D O00 
VARIANCE=COVARIANCE MATRIX 
0.128D-02 -0.779D-02 

-0.779D-02 0.549D-01 

CORRELATION MATRIX 
1.000 -0.929 


-0.929 1.000 
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FABLE D=3B6 
BE AEA HIE A BE AHS A BCI DEE KC ATS FE ICS 2 IC ICIS IS 2K IC IC IE KK IC DIC AIC 2 KC IC C2 3K IC 2 IE AE KC I ais CK 2 aK aK 2c 
USING MODEL B 


LEAST SQUARE PARAMETERS 


K =9. 170 MDe 
BETA=0.178D 10 I1/FT. 


ERROR VECTOR DESIGN MATRIX 


(PSFA) X 
HE HE HE IE IE BK BE DIE OE SIS OK BIS BE FAS IE IC IS BSS OIE SIC OE IE BIS AS OS OE IS AE OE OC BIE OE BE OIE 2 2K aC OI 


BRAS HE OK OE IS 2S AS DIR FS FS FS OK 


-0.508D 02 -0.685D 16 0.3/72D-09 
-0.610D 02 -0.1010.17 0.948D-09 
-0.648D 02 -0.141D 17 0.218D-08 
-0.594D 02 -0.177D. 47 0.395D-08 
-0.520D 02 -0.211D 17 0-633D-08 
-0.309D 02 -0.292D 17 0.157D-07 

0.232D 02 -0.441D 17 0.518D-07 

0.669D 02 -0.580D 17 0.11 7D-06 

0.570D 02 -0./130.17 0.220D-06 
-0.449D 02 -0.900D i7 0.453D-06 


SUM OF THE SQUARES OS THE ERRORS=0.280D 05 
ERROR VARIANCE=0.350D 04 

EXPECTED LIKELTHOOD=0.178D-23 

DETERMINANT OF A MATRIX=0.206D 00 
VARIANCE-COVARIANCE MATRIX 


0.734D-02 0.191D 08 
0.191D 08 0.628D 17 
CORRELATION MATRIX 

1.000 0.891 


0.891 1.000 
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TABLE D0=-3€ 


SFE FS DE FHS BS IS BIS IS OS IS OE SIS OK OS IS 


HE FE OE AE HK 


RESULTS USING MODEL C 


LEAST SQUARE PARAMETERS 


K =8.358 MD. 


B =2-921 PSIA. 
BETA=0.589D 09 1/FT. 


ERROR VECTOR 
(PSFA) 
2 DE AC 2 a BK 2 3 a 2 9 AC 2S AE RK 2K OK 3K 2 
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AE HIE AE HE AEE AK IS OS 2S IS OIC AK KOK AK 3 


DESIGN MATRIX 


x 


~Oe2 750 02 “OefiiD 86 -O223600 00 0.379D-09 
-0.160D O1 *Osi070 17 -@6220D 00 0-967D-09 
-0.512D 00 “0.1510 17 +0e410D 00 0.222D-08 
0.262D 01 -0.191D 17 -0.477D 00 0.401D-08 
0.363D Ol 062290 17 ==-065300 00 0.641D-08 
-0.152D 01 “O.3zZt0 £7 “056230 00 0+1580-07 
-0.410D 01 -0.493D. 17 -0.725D 00 0O.517D-07 
0.397D O1 -0.656D 17 -0.774D 00 0.117D-06 
-0.126D O1 -0.815D 17 -0.804D 00 0.219D-06 
~0.360D-01 -0.105D 18 -0.825D 00 0.454D-06 
SUM OF THE SQUARES OF THE ERRORS=0.670D 02 
ERROR VARIANCE=0.960D O1 
EXPECTED LIKELIHOOD=0.193D-10 
DETERMINANT OF A MATRIX=0.662D-02 
VARTANCE-COVARIANCE MATRIX 
0.247D-03 -0.917D-03 0-402D 06 
-0.917D-03 02.364D-02 -0.139D 07 
0.402D 06 -0.139D O7 Onf220 15 
CORRELATION MATRIX 
| 1-000 -0.966 0.951 
-0.966 1.000 -0.863 
0.951 -0.863 1-000 
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TABLE D-3D 
HEE AR AK A I SIS BE A BIC 2K. AK DIS IC 3K aK aK 2K IC 2 2 2 KO aK 2K aK 2K 2K 2K 
RESULTS USING MODEL 
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LEAST SQUARE PARAMETERS 


K 
B 


ERROR VECTOR 


=8.357 MD. 
=2-922 PSI 


Ae 


BETA=0.586D 09 1/FT. 


DESIGN MATRIX 


(PSFA) X 
BEDI a aK 2 2k aca ak ak ak ak ak ak 2K ak ak ak ak 2k ak ak 9k ok ak ak aK aK 2K aK ak ak ak ak a a ak ak ak ak ak ok ak ae ak ak 3 ak a ak ak ak ak ak 
-0.282D O01 -O.771D 02 -0.234D 00 0.387D-09 
-0.166D 01 -0.116D 03 -0.328D 00 0.993D-09 
-0.528D 00 -0.165D 03 -0.423D 00 0.229D-08 
0.270D Ol -0.209D 03 -0.493D 00 0.414D-08 
0.373D Ol “0.251D 03 ~-0.548D 00 0.662D-08 
-0.2160D Ol -0.352D 03 -0.643D 00 0.163D-07 
-0.426D Ol -0.538D.03 -0.745D 00 0.531D-07 
0-407D O1 -0.7/13D 03 -0.793D 00 0.120D-06 
-0.123D O1 -0.884D 03 -0.820D 00 0.223D-06 
0. /700D-02 -~0.113D 04 -0.840D 00 0.461D-06 
SUM OF THE SQUARES OF THE ERRORS=0.707D 02 
ERROR VARIANCE=0.101D 02 
EXPECTED LIKELIHOOD=0.146D-10 
DETERMINANT OF A MATRIX=0.228D-07 
VARIANCE-COVARIANCE MATRIX 
0.2-249D-03 -0.920D-03 0.405D 06 
-0.920D-03 0.365D-02 -0.141D O7 
0-405D 06 -0.2141D O7 O.728D 15 
CORRELATION MATRIX 
1-000 -0.966 0.951 
-0.966 1-000 -0.863 
0.951 -0.863 LxO00 
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TABLE D-4 
SE EE CK a aK a a aE SEE a CH a a ea 2 ae a fe 2a a 2 a a ak a a a a a aI a a i aK a a 2k a oak 
INPUT DATA FOR CORE SAMPLE NO. 15 
RUN 4 

PE PW IS*T*Z/GC VIS MASS FLUX 

Se A A a a 2 A aE CAC CAE 2 A ae A a a 2 A AR 2 a a a a a ae aa ac ak ak Ne a a a ak ak akc ak 2k ak 
2714.99 1975.61 04201D-03 0.120D-04 0.708D-04 
3139224 1975.61 0.201D-03 0.120D-04 0.122D-03 
3720.50 1975.05 0.2010-03 0.1200D-04 0.200D-03 
4292.38 1974.77 0.201D-03 0.120D-04 0.288D-03 
4883.70 1974.77 0O.201D-03 0.120D0D-04 0.392D-03 
6335624 1974.49 0.2010D-03 0.120D-04 0.695D-03 
9245.54 1987.22 0.201D-03 0.120D-04 0.153D-02 
12140210 2008.82 0.201D-03 0.120D-04 0.264D-02 
15078230 2016.02 0.202D-03 0.120D-04 0.403D-02 
19453.60 2079.99 0.202D-03 0.1200D-04 0.659D-02 
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TABLE D-4A 


BEAK AS AE HS HC BIE TS BIS OK OK BK BIE OIE SI OK BIS OK OS 3S OIE 3K 3} 


RASULTS USING MODEL A 


EK BE OK OK 36 ok Sik 2k ik ok ik ok fe afk ait ok ok oie ai ste ski tts 3 


LEAST SQUARE PARAMETERS 


K=8.295 MD. 
B=4.165 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSFA) X 

HE EAS AE IE DIE DK OK FE AK OIE IS OS IS BK OIE IK BIC 3S BK IC OI IC OIC 2 3K OI aig 2g 2K afk akg ak ak of afk ak af af ok ok alk ale ale ate sie ole ale at ae ak ak ale ok 
0.284D 02 -0.-888D 16 =-0.275D 00 
0.188D 02 -0.132D 17 -0.373D 00 
0.199D 02 -0.182D 17 -0.472D 00 
0.251D 02 -0.227D 17 -0.543D 00 
0.152D 02 ~0.272D 17 -0.597D 00 
O.LOLD 02 -0.371D 17 -0.689D 00 
-0.419D 02 -0.556D 17 -0.782D 00 
-~0.638D 02 -0.730D 17 -0.830D 00 
-0.334D 02 -0.901D 17 -0.864D 00 
0.678D 02 -0.115D 18 -0.896D 00 


SUM OF THE SQUARES OF THE ERRORS=0.141D 05 
ERROR VARIANCE=0.176D 04 
EXPECTED LIKELIHOOD=0.556D-22 
DETERMINANT OF A MATRIX=02134D 00 
VARIANCE-COVARIANCE MATRIX 
0.354D-02 -0.210D-01 
-0.210D-01 02144D 00 


CORRELATION MATRIX 
1.000 -0.931 


~0:.931 1.000 
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TABLE D-4B 


HE HE BS OK FS BS BIE AE FE IK IS FS IS IK IK OK BE HK 


te ste ste te le le Je 
DE AE AS AS OIE IS IS IR AK OK 2S OK OK 


" USING MODEL B 


LEAST SQUARE PARAMETERS 


K =9.520 MD. 
BETA=0.178D 10 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSFA) x 
HE BE BE AE HS OS AK IE IE AE IE BE AS NC IS IE TE IS FE BS IS OE BIE SIE OE IS BIE OE OS DIS BIE IS OIE OI OK IK BIE BIE OK IS OS OK DIK OK OK OK OIC OK OK 3K IK 2K 
-0.360D 02 -0.658D 16 0.397D-09 
-0.567D 02 -0.975D 16 0.101D-08 
-0.597D 02 -0.136D 17 0.231D-08 
-0.499D 02 -0.170D 17 0.416D-08 
-0.473D 02 -0.204D 17 0.680D-08 
-0.126D 02 -0.281D 17 0.166D-07 
0.219D 02 -0.426D 17 0.554D-07 
0.446D 02 -0.559D 17 0.126D-06 
0.5190 02 -0.688D 17 0.236D-06 
-0.373D 02 -0.867D 17 0.485D-06 


SUM OF THE SQUARES OF THE ERRORS=0.195D 05 
ERROR VARIANCE=0.244D 04 
EXPECTED LIKEL THOOD=0.108D-23 
DETERMINANT OF A MATRIX=0.2206D 00 
VARIANCE-COVARIANCE MATRIX 

0-552D-02 0.129D 08 

0.129D 08 0.381D 17 
CORRELATION MATRIX 

1.000 0.891 


0.891 1.000 
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TABLE D-4C 


He a 2 aK aK aK a aK 2 2 


RESUL 


KK & 5 
AE AK 


MEK CK 
TS USIN 


3K AE IK rE HK HE EK 


G-MGDEL € 


ve sle tle Je 
Siplan beks 


LEAST SQUARE PARAMETERS 


K =8.817 MD. 


B =2.403 PSIA. 
BETA=0.-872D O09 1/FT. 


a ste se le ste ste le ale ale ole gl Sle gle 
Seve tek 6 se 5 os 3 


ERROR VECTOR DESIGN MATRIX 
(PSFA) X 
Hg IK 9K 3 2 a a a aK 2K aK i ak a SKC Ca aK aK ae a aI aI IC AC a ak a aK aK aK afc af aK a a aK ok ak ak aK aI aK akc a a afc ae a ok fe ak of 
0.393D O1 -0.679D 16 -0.236D 00 0.403D-09 
-0.718D Ol -0.102D 17 -0.328D 00 0.103D-08 
-0.618D O1 -0.143D 17 -0.419D 00 0.234D-08 
02162D O01 -0.180D 17 -0.485D 00 0.421D-08 
-~0.133D O01 -0.218D 17 -0.540D 00 0.687D-08 
0.118D 02 -0.303D 17 +-046310 00 0-167D-07 
-0.112D 01 -0.466D 17 -0.731D 00 0.553D0-07 
-0.728D O1 -0.619D 17 -0.781D 00 0.2125D-06 
0.400D 01 -~0.769D 17 -0.809D 00 0.235D-06 
-0.292D 00 -0.982D 17 -0.826D 00 0.48/7D-06 
SUM OF THE SQUARES OF THE ERRORS=0.2320D 03 
ERROR VARIANCE=02457D 02 
EXPECTED LIKELIHOOD=0.773D-14 
DETERMINANT OF A MATRIX=0.691D-02 
VARTANCE-COVARIANCE MATRIX 
0.129D-02 -0.446D-02 0.184D O7 
-0.446D-02 0.165D-01 -0.598D O07 
0.184D O7 -0.598D 07 0.292D 16 
CORRELATION MATRIX 
16000 -0.965 0.950 
-0.965 1-000 -0.861 
0.950 -0.861 1.000 
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FABLE OS 


BE AE BE HCE BEC DEAE DI a IC 2S PK DIS DIC DCC I DI 2 KK 2 2K a I 2 2K aK aK aK 2K aK 2K 2 2K 2K 
INPUT DATA FOR CORE SAMPLE NO. 7 


* 
+ 
* 
% 
3 
* 
% 
cv 
% 
* 
* 


RUN 2 
PE PW VIS*T*Z/G6C VIS MASS FLUX 
HE ASAE HE HE IS IS BE IES ISS A DIC AK FI OIE TE OIE IS FIC BIE OIC 2S OC OIE AE OIE OIE DIE BK IS DIS DIC DIS 2H DIE BK 2K 2K IC IS OIE DIK 2K 2S 2K OK 2S OIC OI 2k 
2261.92 1965.03 0.201D-03 0.120D-04 0.103D-03 
2687.78 1967.04 0.201D-03 0.120D-04 0.272D-03 
3129.50 1969.26 0.201D-03 0.120D-04 0.474D-03 
3687.65 1973.29 0.201D-03 0.1200-04 0.7670-03 
4870.53 1984.95 0.201D-03 0.1200-04 0.153D-02 
6318.85 2002416 0.201D-03 0.120D-04 0.274D-02 
9212.10 2057.09 0.202D-03 0.1200-04 0.599D-02 
12144.20 2149.50 0.201D-03 0.120D-04 0.103D-01 
15052.80 2283.12 0.202D-03 0.120D-04 0.153D-01 
19450.80 2590.78 0.201D-03 0.1200-04 0.2470-01 
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TABLE D-5A 
AEE BE CE DI HS BK BK 3K 2K CIES BIC 2 BK KC DIC 2K IK OKC 3 IC KK 2 2 DIE IS BK BIC AIS BKC 2S 2 ES IC OIC 2 2 aK 2K 2 OK 3 aK 92 


RESULTS USING MODEL A 


LEAST SQUARE PARAMETERS 


K=29.271 MD. 
B=62524 PSIA. 
ERROR VECTOR DESIGN MATRIX 


(PSFA) X 
BE AE HEME AK BIE IK IK TIE IS BE OK IK BIS AE DIS BIE DE DEK IS IK IE IE IS 3S DEE BIE OE BC OE IE FS HE OIE OIE I DE OIE ONS BI SE IE SIE BIE OK IS DIS FIC OS OIE OIE OIE OC 


0.353D 02 -0.120D 16 -0.133D 00 
0.634D 02 -0.268D 16 -0.275D 00 
0.787D 02 -0.401D 16 -0.380D 00 
0.834D 02 -0.550D 16 -0.476D 00 
0.582D 02 -0.824D 16 -0.600D 00 
0.115D 01 -0.112D 17 -0.683D 00 
-0.122D 03 ~0.166D 17 -~0.767D 00 
-0.174D 03 -0.217D 17 -0.811D 00 
~0.447D 02 -0.263D 17 -0.846D 00 
0.166D 03 -0.331D 17 -0.874D 00 


SUM OF THE SQUARES OF THE ERRORS=0.964D 05 
ERROR VARIANCE=0.2121D 05 

EXPECTED LIKEL IHOOD=0.368D~-26 

DETERMINANT OF A MATRIX=0.120D 00 
VARIANCE-COVARIANCE MATRIX 


0.320D 00 -02582D 00 
-0.582D 00 0.120D O1 
CORRELATION MATRIX 
1.000 -0.938 
-0.938 1.000 
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TABLE D=56 


J, 
HE EE DIE BS BIS AEE AS EAE OE EK OK BE FE EDIE BS IS IS FS AIS BIS OE IE OI OE TS IC BK FS FS IS OIC FS AIS AS OIE IK IC IS BS 2S OS 3S OK OK 


46k x 
RESULTS USING MODEL B 


LEAST SQUARE PARAMETERS 


K ~=36.390 MD. 
BETA=0.212D 09 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSFA) x 
BR DIE DIE DIS DK DIS BK 2 DIK DIS IE DIK BIE IS ISIS DIC AK BIS OE DK DIE DE AE DIC DIS DIS DK DIE ONE DIE BIS BS BIE 2S DIC DIS IS 2K BIE OIE BI BK FIC OIC OK AIK OK SIC OE OK OIE OS 2 
-0.169D 02 -0.756D 15 0.969D-09 
-0.312D 02 -0.167D 16 0.567D-08 
-0.357D 02 -0.250D 16 0.148D-07 
-0.344D 02 -0.344D 16 0.329D-07 
-0.251D 02 -0.524D 16 0.999D-07 
-0.117D 02 -0.724D 16 0.246D-06 
-0.154D 01 -0.109D 17 0.810D-06 
0.104D 01 -0.142D 17 0.182D-05 
0.723D 02 -0.171D 17 0.326D-05 
-0.353D 02 -0.212D 17 0.650D-05 


SUM OF THE SQUARES OF THE ERRORS=0.2110D 05 
ERROR VARIANCE=0.137D 04 
EXPECTED LIKELIHOOD=0.194D-21 
DETERMINANT OF A MATRIX=02196D OO 
VARIANCE-COVARIANCE MATRIX 

0.531D-01 0.229D O7 

0.229D 07 OekzZ20 15 
CORRELATION MATRIX 

1.000 0.897 


0-897 1.000 
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FABLE D=5S¢C 
He 3 aK AK 2 2 aE 2 aK 
SULTS USING 


LEAST SQUARE PARAMETERS 


K 
B 


ERROR VECTOR 


(PSFA) 


SESS ak a ai aK a aK 


-O. 1 53D 
-0.362D 
0.371D 
0.802D 
0.688D 
~0.144D 
-0.302D 
0.429D 
-0.117D 


FE DK AK AS BK OS SE HK OK IE 


=34.521 MD. 
=1.648 PSIA. 
BETA=0.168D 09 I1/FT. 


-0.231D 
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DESIGN MATRIX 


-0.761D 
-0.751D 


r >< 


SUM OF THE SQUARES OF THE ERRORS=0.324D 04 
ERROR VARIANCE=02462D 03 


EXPECTED LIKELIHOOD=0.727D-19 


DETERMINANT OF A MATRIX=0.685D-02 
VARITANCE=COVARIANCE MATRIX 


CORRELATION MATRIX 


CuG5IED=-05 


0.2290 00 -0.198D 00 0.586D O7 

-0.198D 00 0.185D 00 -0.477D O7 

0.586D O07 -0.477D O7 0.166D 15 
1.000 -0.964 0.951 
-0.964 1.000 -0.861 
0.951 -0.861 1.000 
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SULTS US TING MODEL BD 


le sik sie ale 
ih ied eg ad 


LEAST SQUARE PARAMETERS 


K 
B 


=34.533 MD. 
=1.636 PSIA. 


BETA=0.169D 09 1/FT. 


ERROR VECTOR 
(PSFA) 
HEHE AE AE BK DIC TS AS IEE BK A AEH 2K KK 3K 3K 2K 2K 


-0.812D 


-0.164D O1 

-0.290D Ol -0.183D 

-0.639D 00 -0.277D 
0.795D O1 -0.593D 
0.688D Ol -0.825D 

-0.146D 02 ~O4 1250 

-0.304D 02 -0.164D 
0.436D 02 -0.198D 

-0-120D 02 -0.247D 
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2K 
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DESIGN MATRIX 


ae ak ak aK a ok 


38K 


-0.757D 


X 
HE HS AK 


ste sie 


xt ~ 
sick le ale sie 


He 2k aK 2k ok ak ake ak eK 
0.982D-09 
0.580D-08 
0.152D-07 
0.338D-07 
0.102D-06 
0-252D-06 
0.822D-06 
0.184D-05 
0.329D-05 
0.656D-05 


SUM OF THE SQUARES OF THE ERRORS=0.332D 04 
ERROR VARIANCE=0.4730D 03 
EXPECTED LIKELIHOOD=0.646D-19 


DETERMINANT OF A MATRIX=0.213D-06 
VARTANCE-COVARIANCE MATRIX 
0.227D 00 -0.197D 00 0.583D O07 
-0.197D 00 0-183D 00 -0.474D 07 
0.583D O07 -0.474D Of 0.165D 15 
CORRELATION MATRIX 
1.000 -0.964 0.957 
-0.964 1.000 -0.860 
0.957 -0.860 1-000 
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FABLE O-6 


bed ste ale Sle gl 


le ste ole 


set Re ak te ok nk of sk te sh, 
AEE AS AE ETS IS AE OK SK OK IK IS OEE IC FI DIS IE BIS OK IS DIS DIS BIS OS DIK BIC BIE SIS OIE IS OI OIC OIC 2K DIC IS ac 3K 2c 


INPUT DATA FOR CORE SAMPLE NO. 


2683.39 
3119.19 
3686647 
4282.83 
4849.82 
6318.91 
7758.91 
9213446 


HE AE ES AE BE IK OS OC IK OE IK 2 


RUN 7 


VIS*T*Z/GC 


sl te sic oie ke ate ad ~ ate 
HE HE BK IK OIE DIS 2K IK DIK BIS 2S IK HIE BIg IS 2 OS 2S IK 2K IS IK OIC | 


0.201D-03 
0.201D-03 
0.201D-03 
0.201D-03 
0.201D-03 
0.201D-03 
0.201D-03 
0.201D-03 
3 -201D-03 
0.201D-03 


VIS 


0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 
0.120D-04 


2 


D 


le ste le ye 


J. 
FE AE IE DK KK HK OK 2k IK OK 


Snare FLUX 


5 HE IK 2K DIS IK 2K 


0.364D-03 
0.695D-03 
0.182D-02 
0.314D-02 
0.516D-02 
0. 745D-02 
0.989D-02 
0.16/7D-01 
0.246D-01 
0632 TD=0 1k 
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TABLE D-6A 


ME OE AEE SI AE 2 I I TK 
SULTS USING MODEL 


ste dhe gle she se oe gle ale Ye se se se 
DEE AE DI AE DK BK OE OIE SS OK OK OIE IE OS 2S OI 


R 


2 ISIC I a RO aK CK aK ak aK 2K aK AK 


LEAST SQUARE PARAMETERS 


K=230.361 MD. 
B=5.075 PSIA. 


ERROR VECTOR DESIGN MATRIX 
(PSFA) X . 
BE BIE REE AC AE A BCDC DC BIC A AEA SC BC BETS SS 2 2 2 2K 2 BK KK IC 2 IK OE IC 2 2S 9K OIC 2 IC OK 3 2 2 AK 2K 2K aK OK 


0.723D Ol -0.827D 14 “Oa %2 70-01 
0.506D 02 ~0.149D 15 -0.141D 00 
0-355D 02 =—04327D. 25 -0.261D 00 
0.332D 02 -0.485D 15 -0.354D 00 
-0.161D O1 -0.667D 15 -0.430D 00 
-0.155D 02 “Os927D US -0-.483D 00 
-0.382D 02 -0.964D 15 -02513D 00 
-0,222D 02 -0.2126D 16 -0.552D 00 
“0.3130 02 ~O415tD 16 ~0.551D'00 
0.528D 02 -0.170D 16 -0.541D 00 


SUM OF THE SQUARES OF THE ERRORS=0.109D 05 
ERROR VARIANCE=0.2137D 04 

EXPECTED LIKELIHOOD=0.196D-21 

DETERMINANT OF A MATRIX=0.750D-01 
VARTANCE=COVARIANCE MATRIX 


0.176D 02 ~0.281D O01 
-0.281D O01 0.487D 00 
CORRELATION MATRIX 
1.000 -0.962 
-0.962 1.000 
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TABLE D-6B 


SEE FE HE TIS EDIE NIE BE IEE FE OE OS OI OS SE OC DIE IS A TIS DS IK FE OIE IS OS 2K OS OK OIE OS IS OK 


BEA AICHE AK EDIE AK A 2K IC 2S KIS 2 2S 3K 
RESULTS USING MODEL B 


LEAST SQUARE PARAMETERS 


K ~-=281.665 MD. 
BETA=0.205D 08 1/FT. 
ERROR VECTOR DESIGN MATRIX 
(PSFA) Xx 
FE AED AE HE BK BS HES BK I A BE IC I 2 IC 2 2 IC DICE 2 2 I KC 2 2 2 2 2K 2K 2S 2 aK 9K aKa aK 9K 2 a aK KK aK 2 
-0.399D Ol -0.504D 14 0.137D-07 ps 
0.229D 02 -0.903D 14 0.468D-07 © - 
0.590D 01 -0.198D 15 0.268D-06 
0.773D 01 -0.295D 15 0.689D-06 
-0.849D O1 -0.407D 15 0.157D-05 
-0.474D 01 -0.507D 15 0.282D-05 
-0.107D 02 -0.594D 15 0.438D-05 
0.1910 02 -0.776D 15 0.968D-05 
-0.131D 02 -0.924D 15 0.170D-04 
0.407D O1 -0.104D 16 0.253D-04 


SUM OF THE SQUARES OF THE ERRORS=0.140D 04 
ERROR VARIANCE=0.174D 03 
EXPECTED LIKELIHOOD=0.579D-17 
DETERMINANT OF A MATRIX=02184D 00 
VARIANCE-COVARIANCE MATRIX 
0.244D Ol 0.134D O07 
0.134D 07 0.901D 12 


CORRELATION MATRIX 
1.000 0.903 


0.903 1.000 
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TABLE (De6C 


ste slo ste Je Sle le gle Sle we ale x, se pe Se ke ste we te te Me she te >). A, 4, A, 
DE DE TS BE IK IE OIE BS OK OIE OK OK OIE 2K 3 HE DIK AS OE DIK IS 2K IK IK BIS TS IK AK BK OIE FIR IK BIS IS SI DIS BI BIS OS OK OK 2K OK OIC 2S DIS DIS IS ic oie aie 3c 


RESULTS USING MODEL C 


LEAST SQUARE PARAMETERS 


K =287.712 MD. 
B =-0.410 PSIA. 
BETA=0.2221D 08 I1/FT. 


ERROR VECTOR DESIGN MATRIX 
(PSFA) X 
BEI IEICE SICK 2K 3K 2 KIC aK aK IK 3K IK aK aK 2 3K 3k I aK BK 2K aK 2 2K aK aK a] AK OK KO 2 2 2 ek a aK aK 


-0,525). 01 -0.497D 14 -0.769D-01 OLAFID-OF 
0-209D 02 -0.890D 14 -0.132D 00 0.467D-07 
0.290D O01 -02194D 15 -0.261D 00 0.268D-06 
0.488D O01 —OH~Z69D 15 <-043510 00 0.689D-06 

-0.103D 02 -0.398D 15 -0.430D 00 0.15 /7D-05 

~0.493D Ol =0.495D 15 =-0.475D 00 0.282D-05 

-0,951D 01 -0.578D 15 -0.500D 00 0.43 8D-05 
0.225D 02 -0.754D 15 -0.511D 00 0.968D-05 

~0.112D 02 —-04896D 15 +-0.493D 00 0.1 70D-04 
0.151D O1 -0.100D 16 -0.459D 00 0.253D-04 


SUM OF THE SQUARES OF THE ERRORS=0.135D 04 


ERROR VARIANCE=0.192D 03 

EXPECTED LIKELTHOOD=0.583D-17 
DETERMINANT OF A MATRIX=0.2175D-02 
VARIANCE-COVARIANCE MATRIX 


02145D 03 -0.945D 01 0.391D 08 
-0.945D 01 0.628D 00 -0.250D O07 
0.391D 08 -0.250D 07 0.109D 14 
CORRELATION MATRIX 
1.000 -0.990 0.982 
-0.990 1.000 -0.954 
06982 -0.95% 1.000 


eed ae ers Nae cai nal 
| “do ‘9seaT 


soacaacensraneeremenspacenesnatoenendenanaey 
~ 2 33004 ONTRU atawens 


rn INAUID? a SN 
— Reap x ‘San 
ry OS S0rAT38 ha 


ale? Lellaal wol23e 


sxnenoensennanaeenne 


TOsaves oe « 10-0263 60°" 
\ G-0F9 4860 00 
S0~OH4AS.A - OO 
CBA . CO 
FO-OF A oe OO 
“OO Sk 860 OO eva 
CO-(18 Ea .O do 
CH= (HAR ~¢ Oo 
KO—TOT fie 00 
sO=-(FE Sel ere) 


a0 O12E.0 40 c200,0= £0 prerae | 
VO G02Se0= 60 0868.0 “10 Geee.0- iu 
af AOY60 -. 0085 .0= RO. — 


$ae.0 nae (000.1 
A20,0= G00ef  000.0= ee n 


000ef ARP 4O~  $BPLO 


ig ; i in ra) 


APPENDIX E 


"GOODNESS" OF FIT OF A GIVEN DISTRIBUTION 


TO A NORMAL DISTRIBUTION 


The computer program given in the following pages 
calculates the value of che SLACUSELE x7 and its proba- 
bility for testing the "goodness" of fit of a given 
distribution to a normal distribution. 

The given distribution has to be defined by the 
number of classes, the array of the class midpoints and 
the array of the obtained frequencies for each class 
midpoint. The class midpoints are supposed to have equal 
distances, i.e. the sizes of all class intervals are 
supposed to be equal. 

Additional input is the value of TMIN, which 
defines the limit - when classes will be taken together, 
the mean, and the standard deviation of the hypothetical 
normal distribution. 

Output of the program is the *value of the statis— 
Eic soe the degrees of freedom, and the probability 
associated with the value of viek 

The null hypothesis is that the given distribution 
comes from a normal distribution with given mean and 
standard deviation. The null hypothesis is to be rejected 
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The program requires the subroutines NDTR, CDTR 
and DLGAM from IBM's Scientific Subroutine Package. 
The purpose of each subroutine is given in the program. 

As an example, the distribution of the error 
vector obtained from Model 4, core sample No. 1, with 
30 data points has been tested as follows. 

In order to work with positive numbers, each 
element of the error vector was increased in 10 units. 
Next, the error vector was grouped in six classes and 


the following observed frequencies were obtained: 


Classes | Observed Frequencies 
Te bs 9.4 a 
934-99..7 3 
9-37-10 .0 ILS. 
10.0-10.3 9 
10. 3-10.46 2 
10 16=10 29 2 


The normal probabilities are obtained by calling 
the subroutine NDTR, which accepts the standardized 


random variable obtained from the general expression 
Z. = ———— (E-1) 


where € and o are the mean and the standard deviation, 
respectively, of the distribution corresponding to the 


random variable, Es. The distribution of the random 
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variable Zs in Equation (E-1) has zero mean and unit 
variance. 

The expected frequencies, e,, are calculated by 
multiplying each of the corresponding normal probabili- 
ties by the total frequency. If the value of any 
expected frequency is less than TMIN, then this class 
is added to the next class. If the value of two combined 
classes is still less than TMIN, then these two classes 
are added to the nae class, and so on. 

In order to follow the usual criterion of having 
the expected frequencies larger than or equal to 5, the 
value of TMIN was chosen to be 5. 

The value of the statistic was computed using 


the following expression 


k : 
Se = ) i a ae (Hie 2} 


i=l vt 


The sampling distribution of this statistic is 
approximately the chi-square distribution. In general, 
the number of degrees of freedom for the chi-square 
test of "goodness" of fit is the number of terms in 
the formula for x7 minus the number of quantities ob- 
tained from the original data which are required to 
calculate the expected frequencies. In the given example 


we need to know the mean of the distribution, the standard 
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deviation and the total frequency to calculate the e; 
values. This implies (k-3) degrees of freedom, where 
k is the number of terms in Equation (E-2). 

For the example, the mean of the distribution 
was 10, and the standard deviation was 0.3333. The 


output obtained from the computer program gave 


Chi-square = 2.1703 
Degrees of freedom = 1 
Probability © = 0.1407 


The above results show that the probability of 
having a value for a ceeds O.iee. on Other words, 
Since the value obtained for the chi-square is less than 
3.841, the value of x7 for 1 degree of freedom at a 0.05 
level of significance (56), the null hypothesis cannot be 


rejected and we conclude that the normal distribution 


provides a good fit. 


0 odd eteluaten o3 reHpS 
oxotw ,maSeez} te ssoxpsb (e 8) 
» (Soi) soktsape, ay 
aoktedizteskb ‘ons a. dinom Pe 
el HERE RD Bow: nokbedvat 

bh i ome maxpene pduqaos. : 
eis “EO Ein 


rere oh. 


lr Pu c by — 
,) 
‘A 


a 


» 4% ; e 
30 a 21 1) 


‘eo 
a= 


‘teed Stee Ye site 
rises et, at oxnube= ble. fA 


Tune. Pte 
Uw? 6 os mores Sy Zo. 


ti A 
+i 


we OE 
hel Se & a9 6 


ye edgy 


ae fae 


] 9 
i 
c i) 
ca ) 
= ji 
~ 
~ 


a -) _— ' om ; bs ni ‘ fi i Ry : | " 

i, ‘ ve 4 : ' J rd J Bie yikes =f, Mt 
= : ~ 1} 7 4 f ’ wu ul af 7 

rn - Ap ome v i: oF ile ayaa’ 4 i, " 


> 7 aur UNS 


VIDOR ee eae ee Cee Cenk ewes Oo) CIC IO OO 3 


91 


90 


92 


600 


E5 


MAIN LINE 


HE AC FE AE I BS BE IS NE BIS HE OE OC IC BIS FE IE AC IK OIE OK IC OIE IE FE IC DISK Ik DIE OC BIS DIS IS OE OIC Ik 2S OKC IK OC aK ISS IE DIE AK 3K OK 2K 2K 2K 


THIS PROGRAM 


COMPUTES THE VALUE OF CHI-SQUARE AND ITS 


PROBABILITY FOR TESTING THE GOODNES OF FIT OF A GIVEN 


DISTRIBUTION 


TO A NORMAL DISTRIBUTION. 


INPUT DATA 

NCLASS -— INTEGER SCALAR FOR THE NUMBER OF CLASSES 

TMIN - SCALAR FOR THE LIMIT THAT DEFINES 
WHEN CLASSES SHOULD BE TAKEN TOGETHER 

CLASMP = CLASS MIDPOINTS OF THE GIVEN 
DISTRIBUTION 

XMEAN — AVERAGE OF THE HIPOTHETICAL NORMAL 
DISTRIBUTION 

SIGMA - STANDARD DEVIATION OF THE HIPOTHETICAL 
NORMAL DISTRIBUTION 

OBSF - OBSERVED FREQUENCY OF THE GIVEN 
DISTRIBUTION 

N - INTEGER EQUALS TO THE NUMBER OF CLASSES 


SUBROUTINES REQUIRED 


NDTR 
CDTR 
DLGAM 


2h a aK a ak a ak ae ak afc 2k ak ocak afc ak akc ak ak 2k a ae oe ak 9k aie 2k 9k ak kc ak a ak ae 2 ak ak ak a ak a a ak af afc ak af a ak fe ak 


DIMENSION CLASMP (40) ,0BSF(40) 


REAL CLASMP 
INTEGER OBSF 
READ(5,91) N 
FORMAT(1014) 


READ(5,91) NCLASS 
READ(5,90) TMIN 


FORMAT(10F6.2) 


READ(5,90) (CLASMP(1I)y,T=1,9N) 
READ(5,91) (OBSF(1I),1=19N) 
READ(5992) XMEAN, SIGMA 


FORMAT(2F10.4) 


ITOTF=0 


DO 600 I=1,NCLASS 
ITOTF=ITOTF+OBSF (1) 


FTOT=ITOTF 


UP=(CLASMP(2)- 


NCLASG=0 
PLOLD=0. 
OBSFRQ=0. 


CLASMP(1))*0.5 
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MAIN LINE eee(CONT'D) 


EXPFRO=0. 

CHI=0. 

NCMIN=NCLASS~1 

DO 500 IT=1,NCMIN 
UPPERL=CLASMP (I )+UP. 
T=(UPPERL~XMEAN)/SIGMA 
CALL NDTR(T,PL,D) 
P=PL-PLOLD 

PLOLD=PL 
OBSFRO=OBSFRQ+OBSF (1) 
EXPFRQ=EXPFRQ+FTOT*P 


C CHECKING THE MINIMUM NUMBER OF CLASSES TO BE 
C TAKEN TOGETHER 


TF(EXPFRQeLTeTMIN) GO TO 500 
CHIADT=(OBSFRO-EXPFROQ) **2/EXPFROQ 
CHI=CHI+CHIADT 
OBSOLD=OBSFRQ 
EXPOLD=EXPFRQ 
OBSFRQ=0. 
EXPFRO=0. 
NCLASG=NCLASG+1 

500 CONTINUE 
P=1.0-PLOLD 
OBSFRQ=OBSFRQ+OBSF(NCLASS) 
EXPFRQ=EXPFRQ+FTOT*P 
IF(EXPFRQ.GE.TMIN) GO TO 200 
NCLASG=NCLASG-1 
CHI=CHI-CHIADT 
OBSFRQ=O0BS FROQ+O0BSOLD 
EXPFRQ=EXPFROQ+EXPOLD 

200 NCLASG=NCLASG+1 

300 CHI=CHI+( OBSFRQ-EXPFROQ)**2/EXPFRO 


C CALCULATING THE DEGREES OF FREEDOM AND THE 
C PROBABILITY OF THE STATISTIC 

NDF=NCLASG~-2 

DF=NDF 

CALL CDTR(CHI,DFyPL+D,IER) 

P=1.0-PL 


WRITE(6,800) CHI yNDF 9P 
800 FORMAT(20X,"GOODNES OF FIT TO NORMAL DISTRIBUTION',// 
*y 5X» CHI 
1=",F100494X "DEGREES OF FREEDOM="y14,4Xy"PROBABILITY=! 
*, F965) 
STOP 
| END 
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SUBROUTINE NDTR 


BIS IK AE AS HE AS IK BIE I BIE AE AE SE IS TIS AC IC OK AIS AE OI IC ES AE IE IE A IE IS AE IE OK OS BIE OE OIE OC OIC OIE AE DIE IK IS 2K A 2S 2c 3c ik 


THIS SUBROUTINE COMPUTES Y=P(X) = PROBABILITY THAT 
THE RANDOM VARIABLE Uy DISTRIBUTED NORMALLY (0,91), 
IS LESS THAN OR EQUAL TO Xe F(X), THE ORDINATE OF 
THE NORMAL DENSITY X» IS ALSO COMPUTED 


PARAMETERS 


X =~ INPUT SCALAR FOR WHICH P{X) IS COMPUTED 
P —- OUTPUT PROBABILITY 
D —- OUTPUT DENSITY 


REMARKS 


THE METHOD IS BASED ON THE THEORY GIVEN BY 

Ce HASTINGS, APPROXIMATIONS FOR DIGITAL 
COMPUTERS, PRINCETON UNIVe PRESS, PRINCETON, 
Ne Jey 1955. SEE EQUATION 2642417, HANDBOOK OF 
MATHEMATICAL FUNCTIONS, ABRAMOWITZ AND STEGUN, 


DOVER PUBLICATIONS, INCee Ne Yo 
26 SRC A a I A IC A a AS aE AK 2 CE 2 2 EC AK 3K 9K EDI 2 2 DK aK 3K BK 2 2S 2K BKC FI OK EK 9K 2K 2K 2K 2K 
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SUBROUTINE NDTR(X,_P,D) 

AX=ABS(X) 

T=1.0/(1.0+22316419%*AX) 

D=0 «398942 3*EXP (-X¥*X/2 0) 

P= 1.0 — D¥T*¥((((1.2330274*T - 1.821256)*T + 

11.781478)*T-0.3565638)*T+0.3193815) 

IF(X)1,292 
1 P=1.0-P 
2 RETURN 

END 
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SUBROUTINE CDTR 


BE ME HE AE BE BE BS AE AE A IE A SEC IS BIS FE AE AE KE IE OE OIE IC IS 3K OIC OC EE OE OK IS OKC IC 2 IS Ig OIC 2 2k IS IC Ig 2c 2k ic ok 2s 2 2k ok 


THIS SUBROUTINE COMPUTES P(X) = PROBABILITY THAT THE 
RANDOM VARIABLE Uy DISTRIBUTED ACCORDING TO THE 
CHI-SQUARE DISTRIBUTION WITH G DEGREES OF FREEDOM, IS 
LESS THAN OR EQUAL TO Xe F(GeX)y THE ORDINATE OF THE 
CHI-SQUARE DENSITY AT Xy IS ALSO COMPUTED 


PARAMETERS 

X - INPUT SCALAR FOR WHICH P(X) IS COMPUTED 

G - NUMBER OF DEGREES OF FREEDOM OF THE 
CHI~SQUARE DISTRIBUTION 

P - OUTPUT PROBABILITY 

D - OUTPUT DENSITY 


IER —- RESULTANT ERROR CODE WHERE 
O--NOG ERROR 
-1--AN IMPUT PARAMETER IS INVALID 
1--INVALID OUTPUT. P IS LESS THAN ZERO 
OR GREATER THAN ONE 


REMARKS 

METHOD REFERS TO ReEw MARGMANN AND SePe GHOSH, 
STATISTICAL DISTRIBUTION PROGRAMS FOR A COMPUTER 
LANGUAGE, IBM RESEARCH REPORT RC-1094, 1963 
SUBROUTINES REQUIRED 


DLGAM 


NDTR 
SESE A 2 ak afc ak akc akc ak akc a ake a ak ak afc aK ak ak af a a af aK aK akc 2k aK aK aK 2k ak aK ak aK af ak ak ak ak ak 2k ak ok ak ak ak ak af ak 3k 2 
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SUBROUTINE CDTR(X9GeP,D,IER) 

DOUBLE PRECISION XX sDLXX9X23DLX296G_G62, DLT3, THETA, THP1 
Ky 

1GLG2,DD;T11 SER ,CC oXI FAC yTLOG, TERMyGTHyA2¢A_B,C,DI2 
*» DT3,9THPI 


C TEST FOR VALID INPUT DATA 
IF(G-(.5-1.E-5)) 590710,10 
10 ITF(G-2.E+5) 20,720,590 
- 20 IF(X) 590,30,30 


C TEST FOR X NEAR 0.0 
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SUBROUTINE CDTR eee (CONT'D) 


IF(X-1.E-8) 40,40,80 
P=0.0 

IF(G-2.) 50,60,70 
D=1.E75 

GO TO 610 

D=0.5 

GO TO 610 

D=0.0 

GO TO 610 


TEST FOR X GREATER THAN 1.E+6 


IF(X-1.2E+6) 100,100,90 
D=0.0 

P=1.0 

GO TO 610 


SET PROGRAM PARAMETERS 


XX=DBLE(X) 
DLXX=DLOG( XX) 
X2=XX/2.-D0 
DLX2=DLOG(X2) 
GG=DBLE(G) 
G2=GG/2.D0 


COMPUTE ORDINATE 


CALL DLGAM(G2,GLG2,I10K) 


DD=(G2-1.D0)*DLXX—X2-G2*.6931471805599453 -GLG2 


IF(DD-1.68D02) 110,110,120 
IF(DD+1.68D02) 130,130,140 
D=1.E75 

GO TO 150 

D=0.0 

GO TO 150 

DD=DEXP(DD) 

D=SNGL(DD) 


TEST FOR G GREATER THAN 1000.0 
TEST FOR X GREATER THAN 2000.0 


IF(G-1000.) 160,160,180 
IF(X-2000.) 190,190,170 
P=1.0 
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SUBROUTINE CDTR eee (CONT'D) 


GO TO 610 
A=DLOG(XX/GG)/3.D0 
A=DEXP(A) 
B=2.D0/(9.D0*GG) 
C=(A-1.D0+B) /DSQRT(B) 
SC=SNGL(C) 

CALL NDTR(SC,P_,DUMMY ) 
GO TO 490 


COMPUTE THETA 


K= IDINT(G2) 

THET A=G2-DFLOAT (K) 
IF(THETA-1.D-8) 200,200,210 
THETA=0.D0 

THPI1=THETA+1.D0 


SELECT METHOD OF COMPUTING Tl 


IF( THETA) 2309230,220 
IF(XX-10.D0) 260,260,320 


COMPUTE Tl FOR THETA EQUALS 0.0 


IF(X2-1.68D02) 25039240,240 
T1=1.0 

GO TO 400 

T11=1.D0-DEXP (-X2) 
T1=SNGL(T11) 

GO TO 400 


COMPUTE Tl FOR THETA GREATER THAN 0.0 AND 
X LESS THAN OR EQUAL TO 10.0 


SER=X2¥*(12D0/THP1-X2/(THP1+1.D0)) 
J=+1 

CC=DFLOAT( J) 

DO 270 IT1=3,30 

XI=DFLOAT(IT1) 

CALL DLGAM(XI,FAC,I0K) 
TLOG=X1I*DLX2—-FAC-DLOG(XI+THETA) 
TERM=DEXP(TLOG) 

TERM=DS IGN(TERM,CC) 

SER=SER+TERM 

CC=-CC 

IF(DABS(TERM)-1.D-9) 280%270,270 
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SUBROUTINE CDTR eee (CONT'D) 


CONT INUE 

GO TO 600 

IF(SER) 600,600,290 

CALL DLGAM(THP1,GTH,IOK) 
TLOG=THETA*DLX2+DLOG(SER)-GTH 
IF(TLOG+1.68D02) 300,300,310 
T1=0. 

GO TO 400 

T11=DEXP(TLOG) 

TI1=SNGL{T11) 

GO TO 400 


COMPUTE Tl FOR THETA GREATER THAN 0-0 AND 
X GREATER THAN 10.0 AND LESS THAN 2000.0 


A2=0.-D0 

DO 340 I=1,725 
XI=DFLOAT(1) 

CALL DLGAM(THP1,GTH,IOK) 


T11=-(13-D0*XX)/XI +THP1*DLOG(13.D0*XX/XI1) 
*=-DLOG( XI) 


TF(T11+1.68D02) 340,340,330 
T11=DEXP(T11) 

A2=A2+T11 

CONT INUE 


A=1.01282051+THETA/156.D0-XX/312.D0 


B=DABS(A) 


C= —X2+THP1*DLX2+DLO0G (B)-GTH-3.951243718581427 


IF(C+1.68D02) 370,370,350 
IF(A) 360,370,380 
C=-DEXP(C) 

GO TO 390 

C=0.D0 

GO TO 390 

C=DEXPI(C) 

C=A2+C 

T11=1.0D0-C 

T1=SNGL(T11) 


SELECT PROPER EXPRESSION FOR P 


IF(G-2.) 4207410,410 
IF(G-4.) 45074607460 


jE 


COMPUTE P FOR G GREATER THAN ZERO AND LESS THAN 2.0 


CALL DLGAM(THP1,GTH,IOK) 
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440 


450 


460 


470 
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490 
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520 
530 
540 


550 
560 
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580 
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SUBROUTINE CDTR eee (CONT'D) 


DT2=THET A*¥DLXX-X2-—THP1*.26931471805599453 -GTH 
IF(DT2+1.268D02) 430,430,440 

P=T1 

GO TO 490 

DT2=DEXP(DT2) 

T2=SNGL(DT2) 

P=T1+T2+T2 

GO TO 490 


COMPUTE P FOR G GREATER THAN OR EQUAL TO 2.0 
AND LESS THAN 4.0 


P=T1 
GO TO 490 


COMPUTE P FOR G GREATER THAN OR EQUAL TO 4.0 
AND LESS THAN OR EQUAL TO 1000.0 


DT3=0.D0 
DO 480 13=2,K 

THP I=DFLOAT(13)+THETA 

CALL DLGAM(THPI,GTH,IOK) 
DLT3=THP 1*DLX2-DL XX-X2-GTH 
IF(DLT3+1.68D02) 480,480,470 
DT3=DT3+DEXP (DLT3) 

CONTINUE 

T3=SNGL (DT3) 

P=T1-13-T3 


SET ERROR INDICATOR 


IF(P) 500,520,520 
IF(ABS(P)-1-2E-7) 510,510,600 
P=0.0 

GO TO 610 

IF(1.-P) 530,550,550 
TF(ABS(1.-P)-1-eE-7) 5407540600 
P=1.0 

GO TO 610 

IF(P—1.E-8) 560,560,570 

P=0.0 

GO TO 610 

IF((120-P)-1.E-8) 580,580,610 
P=1.0 

GO TO 610 

IER=-1 

D=-1.E75 
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SUBROUTINE CDTR eee (CONT'D) 


P=—1.E75 
GO TO 620 
600 I[ER=+1 
P= 1.E75 
GO TO 620 
610 TER=0 
620 RETURN 
END 
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SUBROUTINE DLGAM 


THIS SUBROUTINE COMPUTES THE DOUBLE PRECISION NATURAL 
LOGARITHM OF THE GAMMA FUNCTION OF A GIVEN DOUBLE 
PRECISION ARGUMENT 


PARAMETERS 


XX - THE DOUBLE PRECISION ARGUMENT FOR THE 
LOG GAMMA FUNCTION 
DLNG - THE RESULTANT DOUBLE PRECISION LOG GAMMA 
FUNCTION VALUE 
IER - RESULTANT ERROR CODE WHERE 
O--NO ERROR 
=i--XX IS WITHIN 10**(~9) OF BEING ZERO 
OR XX IS NEGATIVE. DLNG IS SET TO 
+} eO0D75 
1--XX IS GREATER THAN 10%**70. DLNG IS SET 
TO +1.0D75 


REMARKS 


THE METHOD USES THE EULER=MCLAURIN EXPANSION 
TO THE SEVENTH DERIVATIVE TERM, AS GIVEN BY 
Me. ABRAMOWITZ AND IeAe STEGUN, HANDBOOK OF 
MATHEMATICAL FUNCTIONS', 1.2Se DEPARTMENT OF 
COMMERCE, NATIONAL BUREAU OF STANDARDS APPLIED 
MATHEMATICS SERIES, 1966, EQUATION 6.1.41 
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SUBROUTINE DLGAM(XX,DLNG, IER) 
DOUBLE PRECISION XXZZ,TERM,RZ2,DLNG 
IER=0 
ZZ=XX 
IF(XX-1-D10) 29291 
l1 IF(XX-1-D70) 85939 


C SEE IF XX IS NEAR ZERO OR NEGATIVE 
C 
2 TF(XX-1.-D-9) 349394 
3 ITER=-1 
DLNG=-1.D75 
GO TO 10 


XX GREATER THAN ZERO AND LESS THAN OR EQUAL TO 
1.D+10 
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SUBROUTINE DLGAM .ee(CONT'D) 


TERM=1.D0 
IF(ZZ-18.D0) 6,56,7 
TERM=TERM* ZZ 
ZZ=ZZ+1.D0 
GO_TO 5 
7 RZ2=1.D0/2Z2%*2 
DLNG =(ZZ-0.5D0)*DLOG(ZZ)-ZZ +0.9189385332046727 
*-DLOG(TERM)+ 
44 14 DO/ 229% ( 9 63393333933333533D—1. -(K22 
eC 27TTTTTITTTTTTTTID—2 «= + (RZ2% 
2(.7936507936507936D—-3 -(RZ2*( 25952380952 380952D 
e— SPP) DD) 


Oo orf 


GO TO 10 
C XX GREATER THAN 1.2D+10 AND LESS THAN 1.D+70 
C 
8 DLNG=ZZ*(DLOG(ZZ)-1.D0) 
GO TO 10 
C XX GREATER THAN OR EQUAL TO 1.D+70 
C 
9 ITER=+1 
DLNG=1.D75 
10 RETURN 


END 
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APPENDIX F 


| 
DEVELOPMENT OF A MATHEMATICAL MODEL FOR 


TRANSIENT RADIAL GAS FLOW 


The following equations describe transient iso- 


thermal gas flow through a plane radial porous system. 


1) Forchheimer's quadratic flow equation: 


RS eg Boq| q| = 
Wie ite Sa 


- ace [r(pq)] = - ooo) (F-2) 


3) Slippage correction term: 


: b = 
ka = k(1 + 5) (F-3) 


4) Equation of state: 


a4p 
P = ORT = "2% (F-4) 


Equation (F-1) implies the following units: 


Pp = psia 
enya 

uw = psia-sec 
ke eee 
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q = ft/sec 
g = fet 
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Multiplying Equation (F-1) through by density and using 


the identity 


2 
oh ee a 2) 


ox ae! 


the following equation is obtained 


2 
Flap. BN2pZ 282 : s! 
= Pa tea ga ed) weds (P=5) 
or ajk, 144 A195, 


where uw and Z are functions of pressure and the flux (oq) 
is negative for production and positive for injection. 

Using the slippage correction term to correct 
apparent permeability for slippage, results in the 
following expression 

2 
hee ReereeeteR ts (ha) 74 Ts (pa) (Joa]). (F-6) 
i ese. 

Equations (F-4) and (F-6) may be written in terms 
of dimenionless variables so that pressure p, and distance 
rare normalized. Let us define the basic dimensionless 


Variables as 
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Therefore, Equation (F-6) becomes 


52 2 ruZp 2r,82 
- <P. Phe weap: ees Cpa yeor 2 (pq) (| eq]) . (F-7) 
or a, kp; (ptb) 144 peaig, 
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Furthermore, if we let 5 
on the right hand side of Equation (F-7) define a 


dimensionless mass flux pq given by 


pares 2 2 
(pq) = 5 (pq) 
144 A PES, 
or 
ce zt 
pq = ——————- (pq) , (F-8) 
Pr V72 O19, 


then, the expression in (F-7) becomes 
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Expanding the right hand side of the equation 


of continuity (F-4), we obtain 


d(po) _ (po) a 5 96, 3 
ce a era i lose + ose] = (F-10) 


From equation of state, we have 
= ' 
a0 _ O54 04P4 


dp Z° 
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An approximate expression for 3¢/dp is obtained as follows: 


The isothermal rock compressibility, co is defined as 


a ee - (ane (F-12) 


where Ve is the rock or solid volume, which can be ex- 


pressed as 


ae V, (1 - 9) (F-13) 
where 

Vy = Ms + Vp : (bulk volume) (F-14) 

US = Ao Ny - (pore volume) (F-15) 


Replacing Equation (F-13) in Equation (F-12), we obtain 
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Furthermore, if we assume a negligible change in bulk 


volume; the above equation can be written as 


en oR ep). Q 
FY iay wlan 5p (E517) 


Performing the differentiation, the above equation yields 
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Using Equations (F=-11) and (F-19), Equation (F-10) 
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and the equation of continuity can be written now as 
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Recalling that 


Q 2 
a Be) ee eC at mG a soe : (F-22) 


Using the dimensionless variables defined before, the 


above equation becomes 
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It should be pointed out that in the above equation 
the rock porosity ¢, is a function of pressure. However, 
if we assume that the rate of change of porosity with 
pressure as given in Equation (F-19) is constant, and only 
depends on the value of porosity at surface conditions 
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o «then the expression for 3¢/dp can be written as 


od _ - es 
Hoc a- 4) (F-19a) 


and Eq. (F-23) can be approximated as 


oo eP 7 
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Furthermore, if a dimensionless time is defined as 


i ae coe ye ee a 

eT " ’ hy Si oi ane ve As 

i as 
a eye 

4 rj mi or w 

we t 2 ees) ; y 

a ; ri fF ‘ ay q 
a - 7 - 
<a Ua 


aanooed EQ ‘worheups +p? ck 


(Si~9 re tg = ff. Vy 
cig ee ich = By + bls Coe) 
‘ 2 eee ‘ FE 0 


9% \e¥oted bentieab nolidgiizay svete enea .. ‘3 : ' 
ar Tse spa 


 tevewor oweeesg 304 


ast 5 at “ pies 
fd ew ytteosog: to: series 30 pte ” fat mugen 


Vlad bas .tastenog, ak “1ek=3), int navie ae a > 
a A 
enoidibaod sone, 38 seth: te sulay ol no af 


as une bw od aed: ate tn noterane na 


‘o 
ny 


[aeR~e) Ri iene 4 hs ted ee 


b Soh) 


es 
0d ipsa Wh antl in oi 
ee ee ot ee 
Bay! a 


E7 


ghsat eau alos. ; (F-25) 
S 


then Equation (F-24) becomes 
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The system to solve is therefore given by Equation 
(F-9) and Equation (F-26). 
Multiplying Equation (F-9) through by r and solving 


for r(pq) we obtain 


-Fkp, (B+B) = 
e (pq) = ———_—_______** ______-— (F--27) 


2r uZp Bes Bo fey o8kp, (ptb) Z|pq| 


Replacing the above expression in Equation (F-26), we have 
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This equation is a second order non-linear parabolic 
differential equation which can be written in compact 


form as 


[K(r,u,u=) us] = G(X,U)U, (F-29) 


where the non-linear coefficients are defined as 


rk P, (ptb) 


ee (F-30) 
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with parameters k, b, 8, and yu, Z, and Cg being functions 
of pressure. 

Since the non-linear coefficient K(r,U,Us) contains 
the dimensionless mass flux (pq), the solution to Equation 
(F-29) must be coupled with the dimensionless Forchheimer 
equation which accounts for slippage. This equation in 
terms of the dimensionless variables is given by 
_ 2r,uZp ee ao 
ou a 


= =——_———__ (pq) + r,62(pa) (/pq|) (F-32) 
or kp, (p +b) 


If the assumption of constant rate of change of 


porosity with pressure is dropped, integration of Equation 


(F-19) yields 
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where oe and Po refer to surface conditions. Solving 


for ¢ we obtain 


“Cc, (p-p.) 
Gusadrcndd am ewes ype dale (F-34) 
This is the value of porosity which would replace %% in Equa- 
tion (F-24). Values of porosity will then be calculated 
at each grid point using the corresponding pressure. 
In this case, the dimensionless time would have to be 


defined as 


yl? So 


2 : (F=35) 


since the rate of change of porosity with pressure is no 
longer a constant involving bo" Also, the expression 
for the non-linear coefficient G(r,Uu) in Equation (F-31) 


becomes 


ay xP, ii 
G(r,u) = Z lc, 7 C.F =e (F-36) 


with the value of ¢ given by Equation (F-34). 

An alternative for the case where the rate of 
change of porosity with pressure is assumed to be a 
constant, is to use the same Equation (F-36) to evaluate 
G(r fa) “but with 6 instead of 9, and the dimensionless 


time being defined by Equation (F-35). 
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APPENDIX G 


DISCRETIZATION OF THE PARTIAL DIFFERENTIAL EQUATIONS 


The non-linear second order parabolic differential 
equation describing plane radial isothermal gas flow 
through homogeneous and isotropic porous media is re- 
stated below in compact form: 
ber pu, U.) Ue) = G (ine) Oo 


a = (G-1) 


Let the region be defined as follows: 
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Employing second order correct of the space 


derivative at points halfway between the pth element 
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and the (a) element the following discrete appro- 


ximation is obtained 


(ie = é (G-2) 
Yr gtk Ar 


This gives rise to an ordinary differential equation, 
which approximates the partial differential equation as 
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The Crank-Nicolson implicit procedure uses a 
forward second order difference approximation on the 


time derivative, namely 
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where 
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The above Equation (G-6) is a general equation for 
any grid point (%).. Since an Gquation of this form 


is 


must be written for every grid point where Ue 


unknown, a system of non-linear algebraic equations 


results which can be concisely represented by 


M (G-7) 


where M is a tridiagonal matrix, ae is the unknown 
vector, and bo is a vector. evaluated at the previous 
time. 

The size of the system of non-linear algebraic 
equations depends upon the number of grid points at 
which i must be evaluated. Therefore, the system 
depends on the set of boundary conditions to be con- 
Sidered. It should be mentioned that two more unknowns 
are introduced than there are equations. These are 
subsequently removed by the use of the two available 
boundary conditions. 

Since the coefficient matrix M in Equation (G-7) 
is tridiagonal, the Thomas algorithm was used to solve 


the system of algebraic equations. While the method is 
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error growth associated with the back solution of the 
elimination method and also minimizes the storage 
problems in machine computation. 

The method may be summarized as follows. For 


a system of equations, 
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Fach set of boundary conditions yielded a dif- 
ferent sized matrix with different non-linear terms. 


Hence, the boundary conditions are treated separately. 
Case I: The Constant Terminal Rate Case and Constant 
External Pressure. 


a) At the producing face 2=1, we have 
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The dimensionless constant mass flux a , is related to 
the pressure distribution through Forchheimer's equation 


corrected for slippage; namely 


2ruZp 


-(u=) 


= Peep ae 6 eee (G-13) 


1,mt+l kp, (p + b) 


Using a second order correct finite difference equation 


at point 1, we obtain 


2 
u. -u e ,m a és ons 
a alee ae — _ a a : 
2Ar pe tD) ay t iP) 


(G-14) 


Solving for the fictitious point u , we obtain 


o,mtl 


G6 


= 
i Sie pe 
ay i rim LP pris 
aa | on 
“Pe 
At ¢ 


iin | 
ema83 ‘Samat e ned daorott is Pe ede | 


oe Saat 
.Yieteisqea betaoxt Ox6 ‘anoia2 " ale 


; iy 7 patty a ek, 


, x oat sb 

tnasenen bas~ SBeO edai ‘it ids edt 
0 Aa 
. | “sommeasua I 


la ow Wi & =O oak padoubee 
(SHeOb 7) Nee mi eee 0. aa iii at 


es betaiex. #£.\4 B seal seem tanyenog peolno a 
aaeren e ramneridoxo’ Apuowls no ktudixtetb saa. 
Drea Nevemetts ak 


t 


(€L=p) ~. |The ae Oe ae 


a, Vad mas ie tho 


sia} wt! weds t+ yt 
(bho) 


ntesdo ew * 


G7 


. ™ 72 9, 
7 FAD MEP ye Oy 


u = F +2Ar F OIF 
o,mt+l1 + 5) Ew HN ro FIFE 


| 
ca W 
he aaa 


+ (G-15) 


42 m+1 


Similarly, at the level m the following expression is 


obtained: 
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The general equation (G-6) written for the grid 


point 2 = 1 yields the following expression after drop- 


ping the subscript (m+) from the non-linear coefficients. 
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This equation can be rewritten as follows: 
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Any other element in the tridaigonal matrix M and in 
the vector b can be computed using the following ex- 


pression obtained from the general equation (G-6): 
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The matrix size for Case I is then 
Il = JJ = LL-l. 
Case II: The Constant Terminal Rate Case and Sealed 
External Boundary. 
a) At the producing face £ = 1, we have 
F for al Uetimes ais (G-24) 
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Since this boundary condition is identical to the one 
encountered in Case I, the matrix elements a(l1,l), 
a(1,2), and the vector element b(1) are defined by 
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When the general equation is written for grid point 
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cients are always evaluated at (m+) time level, the 


following expression is ob*ained: 
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At any other grid point, the tridiagonal elements of the 
coefficient matrix and the known vector are defined by Equa- 
tion (G-23). The size of the coefficient matrix for 


Case II is 


Case III: The Constant Terminal Pressure Case and Ccnstant 


External Pressure 


a) At the producing face 2 = 1, we have 
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Case IV: The Constant Terminal Pressure Case and Sealed 


External Boundary 


a) At the producing face 2 = 1 , 


for all times (G-33) 
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Therefore, the elements a(1,1), a(1,2) and b(1) for the 


grid point 2 = 2, are defined by Equation (G-31l). 
b) At the external boundary 2 = LL , 
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This boundary condition is identical to the one in Case 

II. Hence, the elements a(II,JJ-1), a(II,JJ), and 

b(II) are obtained using Equation (G-28). The remaining 
elements are defined by Equation (G-23) and the size of the 
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The region now can be represented by the follow- 


ing diagram: 


ny 


Ar 


Let s designate the grid point where a change in the 
magnitude of Ar occurs. This consideration implies 

the development of a special equation at the grid point 
s since now the distances (st) and (s-%) from s, where 
fluxes and non-linear coefficients are to be evaluated, 
are not/equal. 
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After some algebraic manipulations the above equation may 


be written as 
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s is given by the following expression 
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At grid points greater than s the same equations are 
applied except that the following definition for op 


must be used 


P> = . | (G-39) 


Calculation of the Dimensionless Mass Flux 


The non-linear coefficients K and K 
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contain the dimensionless mass flux pq , which is rela- 
ted to the dependent variable uU through the modified 
Forchheimer equation. The term us in this equation was 
approximated by a second order corrent finite difference 
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equation evaluated at th and half way between the gt 


+35 
and cgth + 1) element. These levels were used because 
the non-linear coefficients were evaluated at those levels. 


Hence, the term Us is given by the following 
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The value of the mass flux can then be readily evaluated 
from Forchheimer's equation and used for evaluating the 


non-linear coefficients in the parabolic equation. 
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For the constant terminal pressure case, where 
it is necessary to predict the flux at the wellbore, 
a second order correct forward difference equation was 


used. The selected polynomial was of the general form 
y= a aR a,x Ur wnt wes A (G-42) 


The evaluation of the coefficients Agr ayer and a. was 


2 
performed in terms of the known functions values at 
the first three grid points at the locations Cae are 


and 3r fe Hence, the following simultaneous equations 


were obtained: 
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or in matrix notation 
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Solving for a, we obtain 


1 (G-45) 
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where the matrix coefficient M is 


G18 


Bio 


(Shey) 


ot a ayens| ‘ye ye addvty exec tigi agi' 
ts soulev anos dour, ewan itd Me sada 
yi wpeprtodtenek Sdn anton bing pend 3 


eros supe taibaaran aidtedt een eavits oar, ahs 7 pee 
ios 2 aes kn 


et ~S eRe Ce ae = a 
“& tre oP eee brs : is, 
aie a ; 


me. |, 


Pe SOR 
aA 
(Eb=9) ° 
it i 
d ae a iy) ig ae ne 
4 a4 ° ; iN a ay 
Po) - ‘ 7 7 


iy OF 00L 0.000001 


M = a 0.002 0.000004 (G-46) 


A 0.003 0.000009 


Using the general equation (G-42), we obtain 


W 


ao = su, - su, + U2 
eS GC mee a Onlosa eles e107 8 (G-48) 
l . 1 : 2 3 
- owen 6= 5- 
a, = 5.0x10°G, - 1.0x10°%, + 5.0x10°0, 


Hence, the expression for the derivative at r=r_ is 


obtained using Equation (G-47), 


il 2 5 


OF written as a function of Ar, we obtain 


SO alee fue AL 
fo (G-50) 
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] =a, + 2a5r , (G-47) 


] = -1,500u, + 2000u, - 500u (G-49) 
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Calculation of Fraction of Gas Produced 
pe ee CLL ON Ole vas - roquced 


The fraction of gas produced at the end of any step 
can be evaluated using average fluxes. 
The initial mass of gas in the reservoir can be 


obtained from the modified gas law: 


ZW. 
Ve & : -51 
Dae M RT (G ) 
or 
pe orvV. 
x\ a igaw ees a 
eT Z.. (G=52) 
7 
where 
De es 
ae RT 


Moreover, Since va = m (x2 - ee Equation (G-52) becomes 


PE?y > -2 
= = e -53 
W a, -F% we. (1 ria (G ) 


i 


On the other hand, the amount of gas produced at any 


time, can be calculated by the following expression 
c 
5S A, dt (G-54) 
W | (pa), 7 i 
tet 
i 


where (pq) is the mass flux at the wellbore. 


Using the definitions of the dimensionless mass flux 


and dimensionless time, we can write: 
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(G-55) 


(G-56) 


Values for the integral are found using average values 


of the mass flux at the wellbore, 


step. 


When the dimensionless time is defined as 
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The expression for the fraction of gas produced becomes 


Z. 
mL - 


FGP= aes ie 
o,1- ri) 


- (cq) perce! (G-58) 
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i 
Should we have any influx term at the external 


radius, Cae the rate of accumulation in the reservoir 


can be calculated from the continuity equation which reads 


- (mass rate out) = rate of accumulation. 


(mass rate in) L=1 


L=LL 


Mathematically, the amount of gas accumulated is therefore 


given by the following expression 


Zo 


= { 
-2 
o; (1 + ri 


‘ a of — pe 
Accumulation = (Pq) 5 4, dt-r 


a (Pq) p27 dt] 


chi -—— cl 
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(G=59') 


From the above equation, it is obvious that when the 
dimensionless flux at L=LL is zero, the second term in 
the square brackets represents the amount of gas being 
depleted from the reservoir, i.e., the gas produced at 
the wellbore. 

Copies of the computer programs for the four sets 


of boundary conditions are included in Appendix Kk. 
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APPENDIX H 


DETERMINATION OF GAS PROPERTIES AS A FUNCTION OF PRESSURE 


In the iterative procedure to obtain the solution 
corresponding to Equation (F-29), values of the deviation 
factor Z, gas compressibility Ce and viscosity u, must 
be computed as a function of pressure at each grid point 
in the region. 

Gas in the reservoir was assumed to be nitrogen. 
This assumption was made on purpose so that a further 
experimental work in a laboratory might be carried on 
in order to verify the solutions obtained in this work. 
Nitrogen properties have been well studied in the liter- 
ature and summarized in Reference (8). 

In this study, Benedict, Webb, and Rubin equation 
(BWR) was used to calculate the density of nitrogen 0, 


and Z was obtained using the following expression 
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The gas compressibility is by definition, 
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An expression for 0Z/dp may be obtained from Equation 
(et). 4) nus, 
SE RMP? diy yd (i=3)) 
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It remains to find an expression for 3p/dp. The BWR 


equation may be written as 
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For an isothermal process, the above expression becomes 
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Solving Equation (H-5) for p, we obtain 


p= ORT +A)p* +B,0>+C,9°+ D1 0 °(1 + vp") e YP 


(H-6) 


where 
Ay = AXRT 
By = BxRT 
Cy = CXRT 
Dy = DOR lis 


Deriving Equation (H-6) with respect to p, we get 
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From the above equation we solve for dp/dp to obtain 
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Once 3p/a3p is computed, Equation (H-3) can be used to 
obtain 32/dp. Finally, the use of Equation (H-2) gives 


the value for oot 
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The viscosity of nitrogen was calculated using 


the polynomial fit given by Kesting and Wang (49), 


8 3 


H =1+ 8.958x10*(p-1) + GaleO<uame (pany 4 35997107 ° (p-1) 
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is) ) 


where Ue is the viscosity of N, at 1 atm and is equal to 
ime 7ex10°** poise. Equation (H-9) implies the following 
Tnits: 


u , poise 


po ;.atm 


The temperature correction is considered as 
4.550x107/ poise/deg.c. Since Equation (H-9) is at 


25°C, the final expression for viscosity is given by 
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The evaluation of the gas (nitrogen) properties 


at each grid point are performed through the subroutine 


"FPRESS" given in Appendix K. 
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APPENDIX I 


COMPUTER RESULTS FOR THE CONSTANT TERMINAL RATE CASE 


CASE I 


The following pages show the solution for Case I 
at the optimum grid size as stated in Section 5.3. The 
first part corresponds to solutions obtained with a 
permeability value of 500.0 millidarcies, and the second 
part to those obtained with a permeability of 10.0 
millidarcies. Only two solutions are presented for a 
permeability of 0.1 millidarcies. 

The solutions include results for the dimension- 
less pressure-squared and dimensionless mass flux dis- 
tributions which were obtained considering a constant 
rate of change of porosity with pressure. This was 
preferred because the difference in the solutions as 
compared with those obtained considering a variable 
rate of change of porosity, was negligible, and besides 
this allowed some saving in computer time. However, the 
computer program given in Appendix K, Section K.1, can 
handle any of the conditions for change of porosity 
Reeending on the value of the integer "IPOR" as explained 
in the program. Alternative is also given for the use 
of Ar in the sense that the program can accept a constant 
Ar throughout the region or two different values depend- 
ing on the value of the integer "ICONT", the switching 


point being specified by the parameter"IFG". 
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Solutions for Case II are not included since 
they were identical to those of Case I due to the 
fact that the transient did not reach the external 
boundary for the number of time steps used. A copy 
of the computer program for Case II is also given in 


Appendix K, Section K.2. 
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SOLUTIONS OBTAINED FOR A PERMEABILITY VALUE 


OF 500.0 MILLIDARCIES 
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TRANSIENT RACIAL GAS FLOW 


SLIP COEFF(B)= 0.0 IKERTIAL COEFF(BB)= 0.0 PERMEASILITY(K)= 500.000 MD 


POROSITY= 02132 RCCK COMPRESSIBILITY= 0.0 INITIAL PRESSURE= 0.2000 04 


PRESSURE SQUARE OISTRIBUTION 


TIME DIMENSIONLESS DISTANCE 
(To) Rw DELTA R1=0.0010 DELTA R2=0.032724 
0.250E 00 


029984 __140000 _1-0000 140000 140000 120000 140000 1.0000 140000 1.0000 _ 
1.0000 1.0000 120000 120000 1.0000 120000 120000 420000 1.0000 120000 
1.0000 120000 120000 120000 120000 1.0000 1.0000 
0.500€ 60 

0.9950 0.9999 £20000 120000 120000 120000 1.0000 1.0000 1.0000 120000 
1.0000 1.0000 1.0000 1.20000 120000 1.0000 120000 1.0000 120000 12-0000 
—______-___ 120000 1.60000 13-0000  _1400C0 14-0000 1.0000 1.0000 
0.100E O1 

0.9932 0.9993 1.0000 1.20000 1.0000 120000 1.0000 1.0000 1.0000 1.0000 

120000 1.0000 1.20000 1.0000 1.0000 120000 1.0000 120000 1.20000 120000 

1.20000 1.0000 120000 1.20000 1.0000 1.0000 1.0000 


0.1S0F O1 A 
140000 1.0000 _1.0000 140000 _ 1.0000 _ 


Qo yO Ob eet 1-0¢ 


029922 0.9987 0-9598 140000 1-000 
120000 1.0000 1.0000 120000 120000 120000 1.20000 120000 120000 1.0000 
1.20000 120000 120000 1420000 120000 1.0000 120000 
O.250E O01 
0.9911 009578 069995 029999 120000 120000 1.0000 120000 120000 120000 
120000 1.0000 1.0000 120000 1.0000 120000 1.0000 1.0000 1.0000 1.20000 
—___ 120000 140000 140000 120000 120000 120000 1.0000 
O.350€ 01 
0.9903 0.9971 | C.99S1 0.9958 0.9999 120000 1.0000 1.0000 120000 1.0000 
1.0000 1.0000 1.0000 | 1.0000 120000 1.0000 140000 120000 1.20000 120000 
1.20000 1.0000 1.09000 1.0000 1-000 120000 120000 
0.600E 01 | 
O-9891 049960 069983 909993 _ 00 9998 009999 140000 1460000 1460000 120000 
1.0000 1.0000 1.20000 120000 120000 120000 1.0000 1.0000 120000 120000 
1.0000 120000 120000 120000 120000 1.0000 1.0000 : 
0.850E 01 
0.9885 0.9952 0.9977 0.9989 029995 0.9998 0.9959 1.0000 1.20000 120000 
1.0000 1.0000 1.20000 1.0000 1.20000 1.0000 220000 1420000 140000 120000 
pee eA 0000 a= 160000 2 360000 a1 600004 & Lic0000Lm 12600 00h els COOURM EE Ee ae fe 
0.135E 02 
0.9875 0.9942 0.9968 049982 0.9990 029995 0-6-9997 0.9999 0.9999 120000 
1.0000 1.0000 120000 120000 1.0000 120000 14.0000 1.0000 120000 120000 
1.0000 1-0C00 1.0000 1.0000 120000 1.0000 1.0000 


029870 009936 069962 009976 206 9985009991 069995 00 9997 _—0 9998 


120000 1.0000 120000 120000 + ~=1.0000 120000 1.0000 1.0000 120000 
1-2-0000 1.0000 1.0000 1.0000 1.0000 120000 1.0000 


OEY 
1.0000 


Oc260E 02 
0.9862 0.9929 0.9955 0.9970 0.9980 0.9987 0.9991 0-9995 0-9997 0.9998 


0.9999 049999 120000 140000 140000 140000 1.40000 140000 1.0000 1.0000 
120000 1260000 160000 1240000 140000 160C00 140000 
0.335E 02 Pir Meee Sy. Ae Bos, Babee ea UI | | Lara ae arr 
ee 09850 069923 009989 0.995 069976 069983 0.49988 049992 069995 049996 
0.9998 029999 029999 069959 120000 140000 140000 140000 140000 1.40000 
1.0000 120000 1.0000 140000 1260000 140000 +0000 
00435E 02 
0.9853 049918 0.9944 0.9960 
02-9996 049997 __009998 069959 ___ 00-9999 _ 10000 


1.0000 1.0000 1.0000 1.0000 1-2-0000 1.0000 1.20000 


0.9971 029979 0.9985 0.9989 0.9992 0.9994 
1.0000 1.0000 _140000 140000 _ _ 


O0-.S53S5SE 02 
. 0.9850 0.9914 0.9540 0.9956 0.9907 0.9975 0.9981 0.9986 09990 00-9992 


0.9994 0.9996 0.9997 0.9998 0.9999 0.9999 1.0000 1.0000 12-0000 120000 
1.0000 1.0000 1.0000 120000 1-2-0000 129000 12-0000 


~~ 0.9911 0.9937 06° 9.9968 069972. 0 9 0.9983 0.9987 0.9990 
a 9937 0.9953. 029964 049972 049979 049983 

pe Uae ts 0.9957 09998 029999 = 029999 440000 = 120000 = 1.20000 

120000 


BEES SE C2 
0.9846 
0.9993 0.9995 0.9996 
120000 1.0000 1.0000 120000 12-0000 120000 


O.735E 02 
; 029345 0.9908 0.9934 0.9950 0.9961 0.9969 0.9976 0.9981 0.9985 009989 


029996 009997 __ 029998 _049999 ___1+0000__ 41-0000 120000 


e e 0.9995 
o29234 ett ary. 1.0000 1.0000 


1e0000 1.60000 120000 1420000 120000 
{ 


BI. 
tt rf 
7 - 
of 009.008 wtntyrt apaeeeney ‘Dee saddened See x Oo a te) acs 
% 2008-0 ebeiaenue saatini 0 evr srareeenennD oy acca “t 
Sek Oyen oem las pemeueene 2 ee PARE Pe Sane Gor aE ee eS A - Ni 
wets initia a, 
: ae. Se osimaieieas at sea =" Oo ATE 
‘ oe : : Fe : 
NO0FrA CUM A, SONOS BeOoRe — PEEP +198 Sad MOOR; 
O0ab~ 1 9920.3 000002 WH 0Ge a ee ’ pe be da) ; BEAL.  CORO.E 
iy OO09.t Somarot ¢ i Preece! sooo. 
COeons H0OOet OCC. 4 CORD!  ObGess COOd~s inascn 
ONG aT PROSE GOOGLE  O800—-8 OWT ~ GOGGs4 - OBADu? 0080 et) 
se ss citys SONOS | OURGat  SORey “2 
OCOO+s COUR ,d COOOL, AOCCsS “COOKE Sones . ? 
COS 4 O000s 4 O08. ¢ O00 s CUO. § SOCGss, scot “aagest or ; 
G20d,¢ Seat  GOROKE  paabes (0000.5 §— Op0O4 


“ROGOy L008! 9900.t 9060.4 $2044 otek _ 
P0006! C00Ge! BRO094! HG0Du) at 
Maes dds Ones nat 2 
a 
P000-F 8000.5 OOPCL2 C890. edue~t aa008 vy é efee.d 
CFD ONRGeL BOOK E (OOF. C0RG_t —HOOTst — st 0900.1 O800,¢ 
Sk Me A ta nn. PORE son POPPE OO t BOBO POPs) _ SONOrK 
$000.5 00000) C00G~a C608,2 Goebel aes nd monte Wee  EVERLO 
HOC. 5 BHFO8st GOOOee SO0058 GabO.F i oon 0099.1 = G9NOA 
OG: t gevkes = GOR, o0n0 +4 
OLOC—4 $a0 260 UGhes : 
~setaey” seanee cant eevee -aees }- eet see 
; da Sh de hace Boos 
oot.) DD rt a | a Hoots VPRO e9O.G 
QP5061 COC F ROMOnt GR, s BERG 
ee ee oe thane oe OD # - ae 
onoo.) PD e0e.0 Tee0.o Reese 
o040.)  e606,4 O00. t! pobde * eet 4 
2 i weno es Ag . if 
ee ee ee 
ouob .t BOU6.y ot OUD. 
; ‘MOOD? 4 
tr nf ee ee ee ee 
S000. SOOM t OFOC.5 F0.t Bb { f 
7 | oeeonl eOames 
ae Ce me ot nbee.a cones Sy 
CIM.) - OST. OOOO Boose? Be fy 
, . o-1 dha i 
oP eves 2eOPLR ve7o.0 Sena ry bere.e 190.9 
—. 0000.1. 9000,) _s6b0.1 oveo.t 6 ; ete ef pe 
Ges (9 rr ~hoeges et 
SOHO. WOO. SO0OVKR seer. | . pere.e 
oak Py | vovn,4 ‘GPDG. 4 : eree.g fs 
: pose. 4 Seog @00G.t = OnOP.t 
~~ CFR +a Wa. LAeee Sheree  k¥ee ae aa Rre. 
oov0.f eonk.s ~' Ge, 4 VOPR We La ~-s . 
| » C8 ODs & 
Cered MOHF-G  teePro . setae 
~—889O nT SOOFe Kk _ OBOO nb OPED BOOT. 


STs) 


es ee ee oe a ae 


ee nal 


a 


S1N10d GIUD OF 1SUI4 3H1 HOS NOTINGIVISIO 


Gu 000°00S =(%)ALl DIANVANWYAd 


0°0 =(90)33399 Wi iUaN!l 


xn 


0°0 


Ol-a¥ZE*0- O1-GESS*O= O1-CBTB°O— 60-DIZI*O- 60-ABLI*O- HO-CE9Z*O- 60-A9EE°O— 60—-A99S" O~ 60-a0C8°0- BO-Gl2t°0- 
B0-OLL1°0- B0-OLGZ°0— BO-AELE*O— BO-GEES*O— BO-09LL°0- 20-OITT°O- 1£0-06S 1 °O- L0-092Z2*°0- 20-G02E°0- 19-01S%°9- 
LO-QIE9*0- 20-G9Z8°0- 90-GIZI°0- 90-dS9T*0= 90-AvZZ*O- 9O-GIOE*O- 90-AlOv"O~ 90-G62S°0- 90-0269°0- 90-al68 °0- 
S0-aST1°0- S0-d8%1°0- S0-GERI*°0- SO-Azvz*0— SO-azZI£*0- SO-A60%°0- S0-A9SS*°0— SO-OLI8*°0-— %O-OBEI*O— v0-000%"°0- 
10 30S8°6 
—-"—“oe9 “112a0vS°O- 11-dzFR*O- O1-OdeTt*O- OT-OL6T°0- DinOvOL*O=- O1-GL9¥*O— O1-GOZL°O= 6O-AILI*O- 60-OTL1*0- ag 
60-0292°0- 60-O¥0¥°0- 60-A129%0— 60-OESE°0- BO-A9%T*0- BO-Avz2zZ"0- BO-ALHE*O— BO-A¥ES*O— @0-0862°0- 20-01zZI°0- 
20-CvR1°0- LO-OLLZ°0- LD-ASTH*O- 20-G0Z9*°0— 20-GUIo*0- 90O-ASET*O- 90-GL61°O— 90-Ave2°0- 90-A9Nv*0- 90-0F2S*°0- 
90-d008*0- SO-GOTT*0= SO-GISI*°0- SO-aS0zZ°0- SO-M64z°0- SO-GERE*O- SO-A09S°0- S0-G808*0— vO-CIvI*°0- %0-1000°0- 
10 3009°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°90 0°0 0°70 aXe, 
1 r-a1ee*0- 1t-ave8* 6-01-0991 0- O1-dL0E*0= 01-0995*0= b0-G¥OI*O- 60-A16T*0- 60-GavE* O— 6O-AvF9*0- B0-ASIT°0- 7 
20-0202 °0— 80-GOLE*%0— B0-ARE9°0=- LO-G9TT°O= £0-AFOZ*O— LO-AIGF°O- £0-0T09°0~ 90-020 t°0= 99-G691°O- 90-09427°0- 
90-Gz¥¥*0— 90-d869°0- SO-L01°0- S0-G091*0— SO-a9EZ°0- SO-A9vF°O- SO-OEIS*O- G$0-0662°0- v0-AZ2vI*°0- v0-G00%°0- 
to 320S£°O 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 Tt-ORLS*O- OT-CETI°0- OF-G1ZZ°0— Dt-GzEv°O- Ol-TEvUrO- GO-A"IIO- Ps. 
—$o0-00Z2£°0= 60-d2z29°O- GO-AlZI°0- B0-AEE2*0- g0-a6evy* 0- B0-A6GR*0- 10-009 1 *0- L0-A60E%0- 29-C6LS*O- 90-0L01°0- — ¥F 
90-0S61*0- 90-GISE*0- 90-A919°0- SO-G90T*0— SO-GzLT*0~- SO-dHEZ°0- SO-AS9¥°0- G0-0892°0= v0-GFeI*0- v0-d00%°0- 
10 3052°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°O 11-d0vvO- 
Ot-aSO1eO- O1-A1SZ2°0- O1-A96S°0- 60-GI%I*0- 60-AEEE*O- 60-G6L4°0- BO-OzZBT °O~ BO-GOZb°0= B0-AE96°0- £0-612°0- oe 
~ 5 62G06¥°0= 90-aa0 1°0= 95-ASE2°0- 90-016¥*0- S0-AzZOT*0= SO-deOz*0- SO-aTeE*O- So-aezz°0- ¥O-Givt°0- vO-G0Gv°0- —- 
: to 30S1°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 LI-OzZvS°O= O1-ABET*O— O1-A¥SE*0- 01-0S06%0- 60-AILZ*°O- 60-AzZ6S°0- BO-ATST* O~ 80-a9¥c°0- 
90-ave6*0- 2£9-Q0SZ°0- £0-GzZL9°0= 90-G6SI°N= 90-AS6E*0- 90-OFL6°0~ SO-O9FZ°0- S0-a89S°0= v0-d0¥v1°0- %0-G00%*0- Soe 
Rae em a etas Ek MRE a ae a atalaead —e cain Ta BEeees LO Ee SECME AS Ec coodabarnlo 200LSO" 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°90 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 Ol-G6z1°0- O1-a9fv°0- 60-aBv1I°0- 
60-000S*0— 80-G691%0= B0-GOLS°0- L0-AZO1*%0- 20-A2%9°0~ 90-ABIZ°0- 90-Aevd *0~- S0-08SZ°0- SO-G196°0- ¥0-G00%°0- 
os 2 bes _____00 3005°0 
me etOCO eee andy OS.0) 0°0 “0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 ot-0801°0- 
O1-0L6E°%0- 60-OL¥1%0- 60-A6%S*0- B0-AL0Z°0— B0-GZ6L°0- L0-GOOE*O- 90-A¥ET*O~ 390-GezS°0- S0-GzSz°0- %0-000%"°0- 
00 32S92°0 


#(8)434303 AIS 


oe a 
— 


fs 3 = 
oa : 
a —POpae.,.. af 
: . |. SNe OF 
pee Cal 
ano a . ~ or . : a <a eae = ; = 
= 7. @ en a a et r 2 — = ere. - ; - 
2 a ey RS re. — a : - _% = a j= = re 7 


‘i = 
- a i . 


Sty =. 3 


a, 
eas: 
~ 


jo: > 
co 


on : ? ae he hina ~ ; a ; “a a5, Po : x P ‘ , ‘ . Ses 
t-OSOB00~ O1-GEE ED Of UNDE .8~ BE -Geored= FER oo~ #9 see, ¢ hs Lao . > a = 
GO 2 thet, 5 


3 _ os J Rag 2 eae f ms ne - > - a 7 
S J os 7 a a 1” : 4 - ~— P-=aLe > m 7 aaa 
: #2. « = Te = +s he ee = fe wat sais FORT + oF 408 _ ae =, ot. - a : aa —m45 
<O~ Fae a= 2 ees t ESS OBOE dee FE~ us a0 VOmGE1S iw ae ee a es = 
ood os eee ag peacaeees- fe gS 
ze 7 — - "> 4 
a 1 


eRe 5 Settee Pai tes. eos ot eS 
apt eee ee he sapee~s 9 ee ee 


> tee @0-O0IxG= b9~O18E.O~ atm 1a.0- bre tiees S~ ost Ee 

= oe FP SOSE 0 — 90-9855, 0~ SOs Jt1.04 6 2.0- a ogss.e- 59 4-49 < 
tne 2 te 2 ee hee oo ee tie ae 

| Se : 

ne ayes re trp ces) 20. es i oe is waeee - Me 

O0-SE04.0- AO-GehG-9~ SO-UTS! .O- BO-Oes1,9~ Oh-~GekE.o- ime ee Be0~ 20-20RY. d= $0-9841.0- b9-G00%.0~. LAG “SS ie 

= SO-GTSS .0- §O-GeTE.O~ HO-UbeSse= TO~<e tf, B= Perk ON oO TO-DI de sos eines 00-59 200= au-Geat.d- eo-usesa.ck ; a 

; un 1-O ISS, O— aty OPS 9 Wo _OF-OS5t -0= Sr-OF08 o Qe 9 §-0992 .0> Sh-9081. B= PO-UIet .o~ ee Sees BE-0e2).0~ _ [~ 
{ = . ae ue be 


ae ee 
Gee 


; 5.0 


o-8 Bee tee as 


a0 | Oat OO” ES SS on * . 
i@ 3009.0 «= 
: . 


ne O08 _NSORE DD EA OUA YE 01-GASIsT= 9I-OTe{ <Or 91 -B99EsO— 91-9146 s0- 61 -GeRt. 8 £9-0) f120~ OG-Git 1 .0- 


em 


él 


I6 


90-06% °0— 
90-OSEE°0— 
90-ORELPO— 
SO-aRgst*o- 


“90-1271 °0= 
90-0662 °0- 
90-0202 *O- 
S0-OHNGI°0- 


20-9268 °0- 
90-ISSZ°0- 
90-cE99°0— 
S$0-a98eT °0- 


20-0595 °0- 
90-661 °0- 
~~ 90-0009*0- 
SO-Of£85 °0- 


£0-Q262°0- 
90-06£1°0- 
90-061S°0- 
~S$O0-G6d1 °0- 


£0-0221°0- 
290-0128 °0- 
90-O971e°0— 
SO-dz2t°o- 


830-0S2E°0- 
40-OS9E °0- 
30-0162 °0- 
SO0O-OI19t*0-— 


~60-01%9°%0= 
20-0911 °0- 
99-0£91°0- 
SO-Oivt*o- 


so- 


90-G29T°0- 93-092 1°0- 
90-0c9L£*°0- 90-A2Z6E°0- 
90-A10R*°0=— 90-0028 °0- 
SO-GFET2*O— SO-0S%2°0— 


90-99 2E°0=- 90-A9GE*°0- 
90-O1L22°0- 90-AcvB rO= 
SO-OL12*°0- GSO-GS%2°0— 


40-Qv766°0- 99-dIT1°O0- 
90-O0182°0- 90-GOTE*0- 
90-0622°0— 90-01098° 0- 
SO-Q212°0= S0-dtv2 °0=- 


3S0£°O 


90-0 T6T °0— 
90-Av2v°0- 
90 -AL76°0— 
SO -aSB82 °0- 


“90-OZET*®0= 90=-O0S%T*°0= 90-GeSt*O- 


90-ORBE °O— 
90-1086° 0- 
$0 -a982°0— 


90 -aF2T°O=— 
90-A2VF °0- 
90-028R° 0=- 
S0-0982 °0- 


so-3£92°0 


90-1202 °0- 
90-06Sv°0- 
SO-QGEOT*O— 
SO-QO0vE °0- 


“@0-aS21°0-— 


90-OF 2% °0- 
SO-OI01°O- 
SO-GItve*0— 


90-GLE1° O- 
90-G9LE°0- 
90-0226°0- 
S$0-d2vc°o- 


L40-9609°0=— L0-09F4°O0— L0-OkEB*°O0— £0-02566°0- 


90-O0f¢ce*0=— 99-0062°0=- 


90-0082 *°0— 


90-avrlE°0- 


-90=-0999°0= 90-OIvl°0- 90-GF2R*°0— 90-A9I16°0- 


$0-G012°0— SO-AEvS*0—- 


40-Q0SE*°0= 20-d2tv°0- 
90-OI9T*°0— 90-aSet*O- 
90-a98S*0= 90-0299° 0- 


S0-9902°0-— S0-d0e2z°0- 


20-O601°0— 20-0281 *°0- 
23-0625°0- 90-a9TT°0- 
90-0620°0- 90-0£SS*°0- 
$0-0002°0- S0-A9F2Z° 0— 


GO-AGIv"O- B0-QEFES*O- 
43-08S%°0- £3-022S°0- 
90-G0SE°0— 90-dbT%°O= 
S0-0161°0- S0-0822°0— 


~60-0298°0-— 80-09T!°0=— 80-ASSI*0— BO0-Ga0z2°0- BO-A6zz2° 


20-O9ST°O0- 2£0-G£02°0- 


SsO-a0sez°o- 


L0-Of80°0- 
90-UZ212°0- 
90-09%2°0— 
~G0-Ov82°0- 


20-C222°0- 
90-08E1*0— 
90-02£9°0- 


80-0689°0- 
240-O11L°0- 
90-0005 °0—- 
S$0-0S22°0- 


20-0292 °0- 


SO-OfrvLl?O0- 


20-099S°0- 
90-azvz°0- 
90-ale *o- 
SO-GEvE °c O- 


20-0692 °0- 
90-0E9T*0— 
90-AeFL °O- 


80-d2z8B8°0- 
20-O0188°0- 
90-0v6S°0- 
SO-QL£E°O- 


20-00S5£°0- 


S$0-32272°0 


S13A37 SWI SATA LSV2 Lv G39NGOYd Sv 30 NOI LOVES 


90-0v22°0- 90-dEv2°0- 
90-096%°0- 90-aL eS *0- 
SO-CLTI°O0= SO-dOv2T°0- 
SO-ORTv*°O- SO-GIvS*0- 


90-O0161°0= 90-N012°0- 


90-019 *O0= 90-020S5°0- 
GO-OLtT*°O— SO-N22T °0- 
S0O-Q02%°0= S0O-O0f£%7S*°0- 
90-OLESI°0—- 90-069T°0—- 


90-dv1%°0- 90-15Se%°0- 
S0-GL01°0= SO-A6IT*0- 


SO0-O22%°0- SO-920S5°0- 
90-OhOL°O=- 90-OF2T°0- 
90-G0SF*O0= 9O-OITEE °0—- 


‘GO-AvIteo- 
S0-a1SS*0- 


S0-Ov01°0-— 
S$0-dv2v?0- 


20-0299°0- 20-0222 °0- 
90-0942°0- 90-aSI¢e*0- 
90-06%6°0- S0-aLol*o- 
‘S0-09Zt*°0- SO-GeSS*0- 


20-02 2F °O- 
90-026T*°0- 
90-OF YR°O- 


20-OS6E °0- 
90-0S22°0- 
90-0026 °0- 


20-GLETIT°O0— £0-0fv1°0- 
90-G60T°0— 90-A¥ET°O0— 
90-0fF0L°0- 90-AILB*0=- 
SO-OS2Zv¥*°0- SO-C09GS °0- 


40-04S%°0- 20-0¥6S*°0- 


90-0902°0— 90-OI19Z°0—- 90-GEZE*0- 90-G60¥°0—- 90-080S°0- 90-aRz9°0- 


SO-GEL 1° 0- SO-OZ2tz2°0- 


S0-0292°0- 


$0-0l2e°0- 


SO-00cv*0- S0-009S°0- 


$0-3081°0 


SO-36£1°0 =Q35 


90-0%92°0- 90-C9RZ° 0O- 


90-GT8S*°0- 90-0629° 0- 
SO-dG9ET*°0— SO-OIST°0- 
SO0-0092°0= %0-022T* 0- 


90-G6z2z2* 0- 90-alSz*0=- 90-Ovz2z°0- 


90-19%S*0- 
SO-QSE 1°0- 
SO-0¥92°0- 


90-9645 *0- 
S0-duvt*o- 
%0-08z21°0- 


90-ORBTI*°O- 90-0802 °0- 


90-0Q00S*0- 90-905S°*0=— 


50-Q¢ET°O- 
S$9-002L4° 0- 


S$0-O471°0O- 
v0-0621°0- 


90-G6F T°0- 90-0251 °0- 
90-OSEV°0— 90-0Sub°0- 
SO-Q421°0- SO-CEYI°O- 
$0-0942°0— %0-GOL1*°0- 


20-0658°0- 90-av701°0- 
90-Q2SE*0= 90-0G0%7*°0— 
SO-Altz21°0- SO-azE1°0- 
SO-QvaL°0- vO-OIF1°0O- 


240-092 0°0— L40-0£2S*°0- 
90-GE92°0- 90-AzL0F °0- 
SO-GIIt*O0—- SO-0821*°0- 


SO-Q18Z°0- SO-Ot¥E*0- SO-a%¢¥*°0- SO-ARSS*0- SO-NI54°9- %O-CECI°0O- ¥0-N00¥"°0- 


20-O2el°O- 20-G0£2°0- 
9O-OE91*°0=— 90-0641 °0- 
90-0086°0=— SO-OSIT* 0- 
S0-0652°0- v0-aASFI*°o- 


2£9-0692°0=- 20-92Z66°0- 
90-QFL2°0— 90-04 %6°0- 
S0-9908°O0- v0-QZE1°0- 


NOO’d SVD 3O NOILOVHS 


90-060C°0- 
90-0189°0- 
s0-0e9T*O- 
%0-000 7° 0- 

20 AaSEz°O 


90-0899 *0- 
G0-0291°0- 
70-G00%°0- 

20 3S£9°O 
90-uofre*o- 

“90-a¥09*0- Sie 
SO-aS91°0- 
70-000 %*°0- 

zo asts*o 
90-C921°0- 
90-06€S*°0- 

ESO=G1OtS0= 9° =o 
v0-000 %*°0- 

ZO 3SFr°0 
90-01z1°0- 
90-U6Sv*°0- 
So-n9st*o- 
v0-G00%*0— 


zo asee*o 
20-0289°0- 
90-OLSE°O- 
SO-dfvl*o- 


20 3092°0 
20-0062°0- 
90-alv2°0- 
S0-a9¢ 1° O- 
%0-000%°0- 
z0_ 3SaT°o 


90-ad221°0- 
SO-O9TT°0O- 
90-000 v*O- 

20 3aSfI°o 


oI 


/ onresee “ty, a0-Gil1.8-) ob-Seet.G- _ WO OREt.O— eG~ OFF fe _ SOOT a= 6G+yb35.0- ao-0eas. =. se-ites, O~ ¢6-E3ts.9- 


stems : Pe : 

oe a eeoes eee ’ ade ny : 5 
sebetent- sendiog t~ Fedeciieed mere vai sazebee. = a ee 

= Socanee 0 ee et iris Er seemesenes Peegeeyse. serene 


ee eee aed: 5 49-We%, 


<G2C1.0- O0rS28150- 40-Ce4s <O- go-GsIR Ve B6s0588,0= 4 


AOGRFO.O- SO-Oebe.O- watt -o~ POOLS HaG~ O2-d1KT > E POOL 3 6 0 20-09 sis9= e8~cu 


Fo-one: e Weeenya, O- 8G-O8)S.0- an -tess b> 2e-G1s6.0~ 25-DoNe LO ‘pa-tea.e- n-csat.os Ne-eesi &- “Wedbe-e 3- 
POrOF OE 2B e/ ADHOTT TAD ROGER DS BOL G00, O— Se- GID eG Condi 1h, Oe O0sUtSlS- e9r fers .o- eet 25-841 .o- 


w'st Sheva 
2RORETAH- 26-0E9R.d- 2e-0E8s.0- oO ~aess e=-80-2086+0- 20-G802.3- to-s4se +o BS Goat. 8 ~ berate. o- #2500 4, 6- 
STPRET0- BOHBIOH.G~ CO~tETS.O~ BO-Ofse.5= BO~G501.0~ BG-ELii.e- FO~Gasi -B- 99-062: = @O-UiF! .0-  23-98d4.0- 

SO-GLEL- C+ AS-OLSS. Se SS PHL. N- BE-Gekbe. + 60-OReree= 0-041 4.8 oF plese SG~GtOe.8- 4D-uebS. B+ ae~ CiBat~ 
OO-GPri-o- ep-TEed 28> BBMOST 1<O~ OO-G IF $00 PS-UISSHE~ SO-OFES.F~ BO<UL45.0- 29~GeOT.S~ SOeteRS, O- OeQeek a= 


— 


> Rc tl tn 9 apes ai Rie 


= te | 
2s8v82 aut avis F245 Th SywoNae Bae = teres) 
PO-BN0E.8 = BO~BiOSS  AO“3EEELO  —- BoHB0ReD .. BO-HOE Eo endovedee BAD SO bOit3e* 


' ‘ : aha ‘ 
SO a RR enon CE LLL RNA LLL LALA! ALLE LAE AOL ALL LY SLANT te Nt tt amet 


TRANSIENT RADIAL GAS FLOW 


INERTIAL COEFF (RB)= 0.0 


ROCK CCMPRESSIPILITY= 0.600B-05 


SLIP COEPF(B8)= 0.0 
POBOSITY= 0.132 
TIME 
(TD) Bh DEITA K1=0.0010 
0.25CE 00 
_____€.6985 1.0000 1.0000 
1.0000 1.0000 7.0000 
1.€000 1.0000 1.0000 
0.500£ 00 
0.9952 0.9999 1.0000 
1.0000 1.0000 1.0000 
eT OT acco. 1.0000 1.0000 
0.1002 01 
0.9934 0.9994 1.0000 
1.0000 1.0000 1.C000 
1.00CC 1.0000 1.0000 
0.150E 01 
C.9924 0.9988 0.9999 
1.0000 1.0000 7.00C0 
1.CCCO 1.0000 1.0000 
0.250E 01 
0.9912 0.9979 0.9995 
1.0000 1.0000 1.0000 
eee eget 0000. 1.0000 10000 
0. 350E 
C.$S5C5 0.9973 0.9992 
1.0000 1.0000 1.0000 
1.C0CO 1.0000 1.0000 
0.600E 01 
0.96893 0.9961 0.9984 
cent mer a00C Ol mat. 000020000 
1.0CCO 1.0000 1.0000 
0.8S50E 01 
C.SE86 4 ©0.9954 0.9978 
1.00C0 1.0000 1.C000 
1.00CO 1.0000 1.0000 
ROni008 02s as ah oo: cb 
0.9875 0.9944 0.9969 
1.0000 1.0000 1.0000 
1.CCCO 1.0000 1.0000 
0.185E 02 
0.9€71 0.9937 0.9963 
ee sme ta00COnn 1.00008 1.0000, 
1.00C0 1.0000 1.0000 
0.260E 02 
0.9868 0.9930 0.9956 
0.6999 0.9999 1.0000 
1.0000 1.0000 1.0000 
BO.S352 02. er) 
0.9860 0.9925 0.9951 
0.56998 0.9999 0.9999 
1.00CO 1.0000 1.0000 
0.4358 02 
0.5854 0.9920 0.9946 
0.999% 0.9998) (6.9999 
“4.CCCO 1.0000 1.0000 
0.535E 02 
0.$852 0.9916 0.9942 
0.5955 0.9997 0.9998 
1.CCCO 1.0000 1.0000 
0. €25E 02 : be 
0.848 0.9912 0.9538 
0.S$594 0.S5S& 0.5997 
1.00C0 1.0000 1.0060 
;0.735E 02 
0.¢846 0.9909 0.59935 
a. C9992 M0.99S0 my C.9996 
1.C000 1.0000 ° 1.0000 


1.0000 1.0000 _ 
4.0000 1.000 
1.0000 1.0C00 
1.0000 1.0000 
1.0000 1.0000 
120000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
120000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
0.9999 1.0000 
1.0000 1.09000 
1.0000 1.0000 _ 
0.9998 1.0000 
1.0000 1.0060 
1.0000 1.C000 
0.9994 0.6998 
imi 0000y ante O000rm 
1.0000 1.0000 
0.9990 0.9496 
1.0000 1.0000 
_1.0009 1.0000 
0.9993 0.£991 
1.0000 1.0000 
1.0000 1.0000 
0.9978 0.5987 
7.0000 1.0000 
1.0000 1.0000 
0.9972 0.9981 
1.0000 1.0000 
1.0000 1.0000 
0.9967 0.9977 
1.0000 1.0000 
1.0000 1.0000 
0.9962 0.5972 
0.9999 C.$999_ 
“4.0000 1.0C06 
0.9558 0.9969 
0.9998 0.6999 
1.0000 1.0000 
0.9954 0.6505 
0.9998 c€.9998 
1.0000 1.0900 
0.9951 0.6963 
_0.9997_ 0.55938 
1.0000 1.0000 


~ PRESSURE SQUARE CISIRIEOTION 
DIMENSIONLESS DISTANCE 
DELTA P2=0.032724 


INITIAL PRESSUKE= 0. 


sO0C Ce ny 


1.0000 1.0000 
4.0000 1.0000 
1.0000 1.0C0C 
1.0000 1.0000 
1.0000 1.0000 
1.0000 _1.000C 
1.0000 1.000C 
4.0000 1.0000 
1.0000 1.000C 
1.0000. 1.0000 __ 
7.0000 1.0000 
1.0000 1.000C 
4.0000 14.000C 
1.0000 1.0000 
1.0000 
1.0000 1.0000 
1.0000 1.0000 
4.0000 7.c00C 
0.9999 1.0000 
‘7.0000 ~—* 7. 0000 
4.0000 1.000C 
0.9298 0.9999 
1.0000 1.0000 
_ 1.9000 _1,000C 
0.9995 0.9998 
1.0000 1.0000 
1.0000 1.000C 
0.9992 0.999€ 
4.0000 #1.0000 
1.0000 1.000¢ 
0.9988 0.9992 
1.0000 1.0000 
1.0000 1.0900C 
0.9984 0.9985 0. 
1.0000 1.0000 
1.0000 1.000¢ 
0.9980 0.993€ 
1.0000 1.0000 _ 
7.0000 1.000C 
0.9977 - 9583 
0.9999 1.0000 
1.0006 1.000C 
0.9974 O.SEKC 
0.9999 0.9999 
1.0000 1.000C 
0.9971 0.9577 
0.9593 0.9999_ 
1.0000 1.0006 


200b 


U7. 


FERMEAEILITY (K) = 500.000 KD 


O04 


1.0000. 
1.9000 


1.0000 
1.90000 


1.0000 
1.0000 


i: 0009 
-0000- 


1.00920 
1.0000 


1.0009 
41.0000 


1.0000 


7.0000 


1.0000 
1.0000 


1.0000 
1.0000 


0.9999 


7.0000 . 1.0000 


0.9998 
1.0000 


0.9997 — 
1.0000 


0.9995 
1.0000 


0.9993 
1.0000 


~ 0.9991 
1.0000 


0.9990 
17,0000 - 


___1,0000__ 1.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 14.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
1.0000 14.6000 
1.0000 1.0000 
1.0000 1.0900 
7.0000 1.0000 
1.0000 1.0000 
1.0000 1.0000 
6.9999 1.0000 
1.0000 1.0000 
0.9998 0.9999 
alcOU00 meats 
0.9995 0.9997 
1.0000 1.0000 
0.9993. 0.9995 
1.0000 1.0000 
0.9990 0.9993 
1.0000 1.0000 _ 
0.9987 0.9991 
1.0000 1.0000 

0.9985 +=0.9938 
1.0000 1.0000 
C.9982 0.9986 

1.0000 _1.0000_ 


a ee 


an O7f.o02 © gM TETAS ORT | 348 =em.y4n0d 3 susie “ “mys hn | 
#0 0005.0 s$nuaksed SAITO 2O-c008.0 “TeLanareedANt39 5908 ar 2 a 
i cememmened Ja eae jest 7 


<8 remnant ht in tn Ames 


See wey ae se. | 3000.1 J 


O02G.r  edoLr 
OOn0.¢ - O800.f 
oont.? eecd,? 
GOOD .F  O08.1 

here sr a 
6000.4 * eat. 
AUOG, evo. 
OOo; t eena.t 
0900,° gee F” 
©Pa6.7 goo0.?t 
9000.F (B8Coo.r 
ooo.’ Donal 
O0O0.P  e900.7 
9000.7 oons, a 
Q000.7 ~~ G05. f 
ce a oe 
booo.' onne,? 
ee 
om) .t doce.7 
erer.o  eeve.d 

C9092 “Bonet 
Lee .2 | TRE 
@0G0.F B0ba<? 
Feet &veelo 
ob i? quan? 
see.e — bpREO- 
OO00.4 |) 9000.7 
£00? .6  reee.o 
CHeG.t  O0Ga.t 

“feer so «6sadeg 
O00G.F, ROOD 
peer .d jinn 
0000.7 - BOOR.E 


“ooba.t  oouel eneart~‘eoes: foes 


6000.0: Geon.t  geae.t | Boone 


vs cavities SO eT OOOE.F BOGOF é 
oou,f | BG00.r geod.t beod.r 1 ObE5,6 & y 
SO88.f O000.% G90G.F Bane.t oF00.F ‘9609,F.. at 


"Gob0.? "tooo r poou:t pba? “Boos 


9060.8 © poker: ae. iit eeer.e. > Senet emit “yee 


a ee “weeelg 
“ouoa. 


THe F eee 0 
2008. 


sel 


WORT 2ha sarees hincniaatl 


f 


* - 


SE AN eon 
cbt coe og 2088: ' 


9030.85 .8000.F  GO00.t. 000. 2000.8 (OGY 


ves to. mie aang | 


~ 


vooo.r _geust - peo0.# 


VO0«T . COPD bOGG.f RooD.t 


5 VEROORRT | BONER A ROOR.s ghar ak. paki’ 
g000,t  sh00.r doom. 9400-4: eone 
B0008t GUNN paces 


$000., --3000.t  e00d.e ses ‘eee 
come., 86. 0G, HY ees 


Sd ed ie Sober! _ gags 800 4 aoe att aa 


0900.9 @000.1'| 080d, ‘pooacs 
HO00.F "meee: 9080.9 oust ea! 
obeo.t) poneue? labeeg 08d. ben "1 t 


~ R687 pets ect pun 
2800. woae.¢ reat 


oueo.¢ pone ' 


at ee) hd 
oueo.t | D4Oe.t 
eco .¢. 


st ee ag 


poe. | WOOG.E | 


eo i eevee Weeks i! 
oom baba f et 


“aaa aca ate 


s00nst 

HgPe.O,. sae 0 

BORD. Fs o.T. _ punt ja) 
enon 


Cave 6 et aaa a o Md 4 
in oat tt é 


2 Bese 


‘ ee ee @s 
caneet A 7 


reve oD 
OO, 


ee ee 
tt ae 
poon,r 


I8 


tre a ne ee 


OL-9L0Z°0= OlL-GZLE"O- OL-GNLH°O- OL-GL0L*0= 60-0991°0- 69-1651 °0- 


60-QBE7°O- 59-9SE°0=- 69-2155 °0- 


60-IL6L°0- 


BO-ILLL*O- BO-GNLL"O- BO-GLSZ°0- BO-GALE"O- B9-155S°0- RO-IZ1B"O- LO-GBLL*O- LO-GLLLO- LO-2LhZ°0- L)-INSZE*O- 
LO-GS05°0~ LO-USLL°O- 9O-TODL"O- 90-dONL“0= 90-TEbL°0- 90-959Z°0- 99-GBSE°O- 90-dLBn°0- 90-2HE9"O- 90-16ra')- 
SO-G60L"O- GO-GZML"O- SO-GEBL"O- S0-A9EZ°0- SO-ALOE*O- S-290n"0- SO-GnSS°0- S0-GLLB°0- nO-d6eb*O- 2O-JO0n"O- 
eo OE eRe See sae he eee J a Peter eesh el OR. eS aoe ee ee eee ND AOS BRO 
0°0 0° : LL-GLGn°O= LL-d90L*0- OL-GLLL*O- Ol-UELL°O- O1-GZLZ°0- O1-G9zZn°0- 0L-dL99"0- 60-dS0L°0- 
60-THIL"O- 60-GLSZ°0- 60-470hH"0- 60-879°0- 60-GZB6°0- BO-UESL°O- BN-AbEZ*O- BI-GZLE“O- 8)-1alS*0- 89-3952°0- 
LO-J9CL*0- [asdeue LO-J9ZE°O- LO-196H"0- LI-TOSL*O- JI-ITELL*O- 90-31891L°O- 90-ILnc°O- 90-109 °0- 90-181S*°0- 
90-G9EL"O- SO-GEOL"O- SO-GunL"O- SO-d¥BbI "O- SO-dZLZ°0- SO-GRLE*O- S0-G9ES"0- S9-GL9B°0- hO-dinL*O- nO-d00n"0- 
LO 5009%0 
ae To see) SORA Ea ew 0 eee e000) eee 2 020 ete O° oe ee 000 eee OU So eae DG mean DO: 

O°O bb-d29n"O- LL-dOSB"O- OL-IL9L°U= OL-ILLE*O- 01-J60S°O- 6O-CGELL°O- 69-dZLz2°0- 5)-4L5E°D- 60-U8EL°D- 
RO-ILEL“O- BC-IZSZ"O- BO-1O9NH"O- BO-GSER*O- LI-GOSL*O- LO-TR9Z*°O- LO-GLLh*O- LO-IELB°O- 90-10nL*O- 90-15Fz°0- 
90-ALBE"O- 9D-UnZI-N= 9O-AERL"O- SO-ALSL°O- S0-A9Z7Z"0- SN-GLEE*O- S0-G90S°0- $9-GS6L°0- fd-GzZHL*O- HO-J00n"0- 

10 JO0SsE°O 
0°0. 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 2°0 

0°70 0°0 0°0 0°0 0°0 bL-G919°0- OL-GhZL"O- Ol-GEhHZ"O- OL-JeS5h°O- OL-3655°0- 
60-1002°0- 6U-GO0N"0- 60-GL6L°0- B80-A8SL°0- GI-AMLE°O- BI-619°0- LO-dLZL“O- LO-19£Z°0- L9-165n°0- 20-1898 °0- 
9O-GEIL“O- IG-GLOE"O- 90-G9HS*0- 9D-UHO%"O- SO-G99L°0- SN-dLLZ°0- SO-GSSH°O- SO-GL9OL°O- Nd-GEHL°O- hO-J00h*0- 

10 50SZ2°0 
0°0 o°n 0°0 0°0 0°0 0°0 0°0 0°0 9°0 2°0 

0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 a9 
HtrTLCS*O~ OL- dint "Om Ol-GBnE"O- OL-GESE"O- 60-8IZ"0= 60-0905°0- 80-3271 "°0- 30-4£67°0- 80-3159°0- LO-In9L*O- 
LO-GLBE°O- LO-dELY"O- 90-961 °0- 90-TLEN*O- 90-d076°0- S0-dbaL“O- SO-GSLE°O- S0-GSIL°0- hO-dLhl°O- nO-doon*o- 

L0 F0SL°O 

0°0 0°70 0°0 0°0 0°0 0°0 0°0 0°0 0°0 920 

0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 

0°90 0°0 0°O bt-dZ08"0- O1-dZEZ°0- OL-E95°0- 60-J5nL*O- 60-196£°0- 80-3591 °0- 80-1812°0- 
BOrGSEL"O- LO-dNGL"O- LO-G80S"O- 9O-dZEL*O- 90-AZnE"0- 90-GhLB°0- S0-GOZZ"I- SO-GLnS"O- H9-IBEL°O- H9-JOOn"0- 

10 300L°O 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°90 0°0 2°9 

0°0 0°0 0°0 0°0 0°0 0°0 0°9 0°0 2°0 9°0 

0°0 0°0 0°0 0°0 0°0 0°0 0°0 LL-JOLL°0- OL-IhLZ2°0- O1-10L6°9- 
GO-GENE"O- BO-ALZL°0- BO-G8ZH°0- LO-GLSL°0- LO-GZES"0- 90-G88L°0- 90-4999°0- SO-ainZ°0- SO-19E6°0- h0-dOOh*O- 

Sie Saskse -f eS i ee ee ee eee ee = = O0LAgUSE OL 

0°0 0°0 0°0 0°0 0°0 0°0 0°9 0°0 0°0 “0 

0°0 0°0 0°0 0°0 0°0 070 0°0 0°0 0°0 9°0 

0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 Lt-1169°0- 
OL-G99T*O- GO-TEOL"O- GO-GEOH*O- BO-G6SL°O- B0-GLE9°O- LO-GO9Z"O- 90-GOLL*0- 90-GLBn°0- SO-dEnZ*O- n0-d00n*0- 

00 40SZ°0 


SINTOd GIu¥D Of LSuTd AHL YOd NOILNGIBISIG xotd 


GW 000°00S =(x) ALITIAVAKUad 0°O =(88) 44709 TWILYANI 0°O =2=(a)4a4399 dITSs 


got Ste eae 


~ - Raw; a ot = , . a , 7 “ 

( @M-O04F B= 30-2700 .0~ 20-Gae? .2- B0-000r b+ 2e-Caht .e~ £o-89TE.6- = : ; » c 
GG OOT 66+ O6-GO08.d~ FD-GIET.O- BOnH82t 04% BI-Gerl.o~ ria : ~ FO-32938.6-- 2aAPh . 35 ie 
; e.9 0. => ar a ae O.% 41 aa" besaett aks 8 t Staseee. = SF-atee. a : a 
= 6.2 i go 6.3 :. BA = BO, ; He ae = t 2,0. _ - oat a jets ; ¥ 

H9-gt8E -B« a6--a0ca.e 2-0 ne .0- 20-4027 ae Q-aRES 0=.€0-atET hm “ep-ce0r. b> £2 -87ST.@° ad eusee, = 90-JeTs O4 ~ ee 

mETLY .6~ SEL .O~ BO-GO8S.O- B9-C2LG,G- TI-GHEH.B~ FO-D5ah.0- TO-~21T B,O- TO-a0tE.O- S0+e0r Oe O0-1268.9- a’ ao 
- B60 YtwESas. Be TT BOSE 0+ OP-9 5 of Go! Steal ff Oe OF + 3FOS —POsAGER A SEE E- eh EL ag @D=3RLED- 
0° | °° -8.9-""" 8a C05! 8-e = 3:3 32 5.9 a: . 


SE-AULl.O- LO~ OLS) . Ge Bo <gast B- FO-CBEE. 9+ |]5-USt ae 20 4gH0E 0+ #0~58:8.0- po -et3# .0- ie-diefe- d647000 + : - 
TO-S0t! .O= Cin GkIS E- €O-G4Ck.0- TO-Gdtse.e- T2-GoET = BS-9E1f B= BO-I8bt Gy 30-37 et .O- o0-200t ae BG-741 e.6- ; - See _ fi 
OD=5 FOl.0- FO~ST2E G=_PO-9506.0— ©6-ESS0,0- SO<OSEH Oe 29-TLT.O- BO“ OCES,D~ F)-BECE,G- 62-38F2.8- 83-3976. 0= zs 

v.8 + 0.8 FF ~OF Ee .6- ff-S00T.0- Steagi Tt .o~ OF-SELE.O- OfHtEtl.Ge Sr-cate.g~ OF -SEI3.0~ F0-seol -S> 7 
= a * + — er pee tn - a = =e * a } oy See oy oe 6 ln = a ~ ‘PO yereTy 
20-dF 0; G+ Pn-0t 2h .6~ b0-Ce tr .b- RO-Setl 0- 2h-0f05. O¥ 20-2052 .4- PG-c0cF. 0+ SO -etr 8 O--9o-10Tt0- ae=2008.2- 
FE-O20) .O- Turt2tt.d- 49-Gau4 .0+ 25-60! .O- 89-48? 1. 0- SO-PERE = 49-0826.0- 66-111 S8.0~ 20-T8E9 .O~ 30-J2PLE. S- : : 
BE-ITEE .S- AO=GATI.O~ FO-GTLE.o- SH-S0F .O~ 52-9222 .0= BD=FhFS.O= TO-cRi Tt, O- (O-artt.8= TO-28E. B= 13-2858, 9~ , 
OF GTEC. S- OL -GEht. = SP-AVTe.0- OF -ETST.0> SO—d0t, 0 FO-Teet. b+ O- GEES, 2- F2-GeC.0= CP-OfEe, Oe SOe sl eo. G= 

-—— - . — —La wn —_ a St Re me A == et si mt Ny lim 


y 


zo 


90-TntL°X- 
GO-TLLE °O- 
90-GEZL°0- 
So-dvyl°O- 


9H-CLIL°G= 
90-3032 °0- 
90 -GAR9°O- 
GO-GLAaL°O- 


L0-0639L°C- 
90-939¢2°O- 
90-dcn9"0- 
S0-dS4L °0- 


10-0d0L9°0- 
90-J0H8t “0- 
90-9SLS°0- 
SO-Géub °O- 


L0-dS*F2°0- 
9Q-A7CL °O- 
90-1 26h = 
sO-QLLi °O- 


BO-dELH °0- 
40-106%9°0- 
90-GnBE°0- 
SO-T ESL °U- 


60-dn2Z°0- 
40-1682 °0- 
90-4d292°0- 
S0-GLS1L °O- 


“t60-Ghba°o- 
60-3996 °0- 
50-d0hk °0- 
GO-ILE4b °0- 


90-CLhL°O0- 
90-GhhE°O- 
90-G9RL°O- 
S0-GELZ°0- 


90-G8llL°O- 
90-1LC0E°0- 
99 -dESL°O- 
GO-dELZ°0- 
LO-Th9u"0- 
90-01 9¢C°Q- 
90-189L°0- 
GSO-TLL7°O- 


LO-dchS°0- 


90-1692 °0-_ 


90-d7n9°O0- 
S0-1602 °0- 


L0-108Z°0- 
9u-aZnb *0- 
99-85 *°0- 
S0-dS0Z°0- 


LO-VELL*O- 
LU-UCEB°O- 
90-dehnh?’O- 
SO-dbul *O- 


B0-d£672°0- 
LO-UUL9IE °O- 
90=GGLE°O- 
SO-d8l °O- 


‘60-95 °0- 


LO-GSLL°0- 
90-d08L°0- 
SO0-d891°0- 


Go-dS0E°O 
90-109L°0- 90-aSL1°0- 
90-GnLE°O- 90-190h°0- 
90-3958°0- 90-GhEb °O- 


SO-dS¢n2°O0- 59-dS8¢ °0- 


9O-COLL°O- 90-Ihnt “O- 
90-ALEE°O- 90-169E -0- 
90-4578 °0- 90-dn0b*0- 
GO-GQnhZ°O- S0-398Z°0- 


L0-00L6°I- 90-a4501 *0~- 
90-GG62°0- 9O-GLCE*O- 
90-182 °0- 90-JE 98° O- 


60-dnhZ°O- S$0-d982°0- 


L0-dEZ9°0- LO-d9LL*0- 
90-G0EZ°0- 90-4657 °0- 
90-GLLL°0- $0-a00R*0- 
SU-GznZ"0- 50-GS8Z°0- 


LO-JEEE*O— LO-dS6E °O- 


S0-aE97°O 


30-a2722°0 


STIA3T GWTL TATA LST LV 1a9n] 


$0-32081°O 


GO-36£t°O 


o¥d SYD 4) NOILOVYA 


=CdONUOHYA S¥D dO NOLLIVEI 


90-J06L°0- 90-L0Z*0- 90-a9ZZ"9- 90-dINZ"O- ¥3-GBIZ*O- 90-1462 °0- 


90-dinn°0= 90-deLh*O- 90-d61S°0- 
GO-OZ0L°0- SO-JZLL°O- SO-1EZ71L°0- 
GI-G0nE*9- GO-d6LH°O- SO-UzZnS°0- 
“Q0-G8SL°O- 90-3SLL°0- 90-IZ6L°0- | 
39)-dc)n°O- 90-dLhn°O- 90-Z8n"0- 
99-1£66°0= SN-J60L°0- SO-ILZL°0- 
GO-GLHF°O- SO-ULZn°O- SO-dSnS"0- 
90-AZZL°0- 9O-ILEL*O- 90-0251 °0-_ 
G9-0G50°0- 99-Z6E°O- 90-GhEn*0- 
90-0hS6°0- S0-J90L°0- GO-TLLL°O- 
GO-UZhE°O- SO-GEZH°O- SO-aBgnS*0- 
LO-GLZ8°0- LO-d0n6°0- 90-dL0L*0- 
90-G152°0- 90-TLZE°O0- 90-0L9E°0- 
99-UhHdR°O- 90-THH6°0= SO-IZLL°O- 
GO-dEHEO- S0-GSZn°0- S0-02SS°0- 
LO-d89n°0- LO-dESS°0- LO-d159°0- 


90-d59L°0= 90-G0bL°O- 99-G0ZZ°0- 90-JESZ°0- 90-9062" 0- 
YO-GHE9°O- 90-THLL°O- 9N-ThLA*O- 90-1EZ6°0-_ SO-IS0L°0- 


S0-G6E7°0- SO-NE9Z°U- SU-UCHE*O- SN-I9TH°O- SO-aSSS°0- 


LO =C5 6150 
90-Cd00L °0- 


LO-dcLL°O- 
90-001 °0- 


CO-GiLZ20= 
9O-dEnL°O- 


LO-J6$Z°0- 
90-JOLL°O- 


LO-IJLLE-O- 
90-1 02° 0- 


Q90-0125°0- 90-0509°0- 90-CLOL*O- 90-ILLB°O- 90-13€6°0- 


G0-1HEZ°0- GO-T6LZ°0- S0-dOHE*D- SO-09TN*0- 40-ARSS*0- 


8I-dLBE°0- 89-d96h°O- BO-TENI°O- BO-GZEB°O- LO-ALOL°O- 
£0-0S99°O0- L0-1985°0- LO-SSEL°0- LO-I6L6°0- 90-dhiL"0- 
90-J58E°O0- 90-Gn9n° N= 90-095S°0- 90-3599°0- 90-IZ6L°0- 90-ALH6°O- SJ-IZL1 °O- 
GO-957Z°0- SO-dELZ°O- SO-G9EE°O- SO=dSZHh°0- SO-dL9S°O- SO-GLO8°0— hO-dSEL°O- 


90-Gn9S°0- 90-IZ7L9"0- 90-1599"0- 
G0-I9EL°0- SI-JUSE-O- SO-ILY9L°0- 
SO0-dZ9L"0- n0-ILZL-0- n0-100h"0- 
; ae aes ._ £0 aSéL*O_ 
90-dLLZ°0- 99-1z2z2°0- $0-1552°0- 
90-GLZS°0- 90-J9LS°0- 90-10£9°9- 
GO-QnEL"O- SO-JtnL*O- S0-397L"0- 
60-0994°0- hd-IBZL°0- nO-109n°0- 

ZO aS£9°O 
99-GOLL"O- 99-G06t"0- 90-TLEZ°0- 
90-G6LN*O- 90-DAZS°0- 90-32aS"0- 

G0-JOEL°O- SI-19nL°O- SO-1n9L*O- 
GQ-GZLL°0- hO-G6ZL°0- 40-100n*0- 

ZO 3SES°0 
99-d2Z1L°0- 99-T6EL°0- 90-1851 °0- 
90-dzZLh°O- 90-Ti9h*O- 90-3515°0- eh. 25 
G0-€9Z4°O- SO-Jinb°O- SO-10S4°9- 
GD-GBLL°0- hO-JOZL°O- n0-100h*0- 

ZO asfn°0 
L0-€S9L°0- £9-1L58°0- 90-3501 °0- 
90-QZEE°O- 90-JHLE°0- 90-12Eh*0- 

GO-J6LL°O- SI-ISEL°O- SO-IhSt*O- Bs 
G60-d98L°0- nO-dZEL°O- n0-100n°0- 

ZO SSEE°O 
LO-GLEE°O- LI-GLLn O- LO-ILLS°0- 
90-TREZ°O- 90-1082 °0- 90-18Z£°0- 
GO-1601L°0- GO-JSZL°0- S0-IShL*0- 

ESOUSIUSL Ds nate te O= eno =d00n 0= 7 es dl 

Z0 503z°0 
LO-GBEL°O- LI-TLLL°O- LO-1L72°0- 
90-GZhL°O- 90-9SLL°0- 90-1512°0- 

S0-1ZE1°0- 
n0-100h'0- 

Z0_ 4531 °O 


LO-GSSL°O- LO-dL0Z°0- LI-d9LZ°0= LO-AS9E°O- LO-GZBnH°O- LO-GHE9"O- L0-d6Z2B8°0- 90-180t*°0- 
9N-ILEZ°O= 90-TGhbZ°O- YO-GLLE°0- 90-IL9N°O- GO-GhES*O- 9D-ILZL°0= 90-1096°0- GO-ILEL*O- 
GO-dw07°0- S0-G8SZ°0- SO-dSZE°0- SO0-UBIN°O- S0-G09S°0- SO0-GL08°O0- hO-GlEL°O- HO-J09N"0- 


ZO aS€r°o 


99999 a 


Tiga 


: - rote te Er - T ; “3 = te - t. “a2Se.0- “A 1.0 - 


es o d= _ad~abte ir 7484, OD | at 
Spas. at te gecbonsa a al 
ie Re 3O* MO=3ECl.O- O922:5,0= 0 - ' ae 
> ares : ae i Se-OFE hs ys = iss. 
Feet 7 - Pt 
rs 48 ; =" 
aii — Soe diay ad=etS2,0- 90-226.0-" fart dine Se A per 7yle.e 
a P< TkLS.6% SO-CCOl .G- B~5 001-64 B9~0F8! oe roth a al 74 f+ es 


tee : = Ge4,4- 
tie — ee ae FBCALTT .8~ CO-GeE} Om FO-9ETT OH Siete: han es 


“"aO=aSET .2- Bnd areas 3s 5 aret o O-T0P tO aeeaxie Sets. aera 
> FO-GEL3.0- To~s0gs.9> ‘Fo-28es -9- Ca-aeer .p- ‘Fe-ana6.o- Peeet 228 


es a0-<fur B= 20-d90EL0- 20 -Chsh Be #$-0--0-dCet .o* Pin-00se. 


= : e: _ Oa Gaz “a #2-dt or .g= tererka, 22 i G= 8f-01 zt .0< 6~at st. 
i ~ S-e6Tt.o- SoMttee.o- 2 sa to-art. &- F2-Grs 8d 28t.8- 


See ea 


~~ aece = P 


- < - ee al 
; #O-G2at Ce Zo-arrs 0 2h-se8g g- 20-4080 .b- 20-atse. o> “20-0059 .6= 2e~ 25 -OSTE.0= pena devdoes, ec 
8G-9€04.0-. 39-10GT.G+ s0-nFRt20~ 36~gt 38. 8~ a0 -d82F .G- 20~7agt_o< -ygeeage 2 SO~FOEL. C= oriae ar peeriaee : 7 
3 DO-TLLE 0 20-91 Wh. ad-GCCk,S- BO=ISE, B= | ere wl 69+ 35°L 90> 28-Ge0# 0% S0-6f59.9- 25-9662 6-49-4542 . a ee So, oe 
terest .o~ fo-auha.o- O-gnTe,3- 34-GPNT.G- S9-CSSF.u~ 0-38 t -O- ae-0t-1.5- e2-gott 8 a9~a9e7 b= 20-art t,o ~ Pam. 


{op ce al : So 22te.9 
CO-RTHE Hh E-ak(5.0- O-eeds.6- 29-nause- Bea? si .6- 20-AFiw.0< BE-arve.g- to-980€16- ‘s2-geT hous #0 ~263¢.9~ 
AG -Chos.0~ J2-WRE.0- OO-GELh O~ $B-g0008- 29-9860 2e~Fe0r -o+ #9-31°6 PO 20-GeEt. B= 40-56 0f.0- 40-3025 0- 
#2-3035¢ .0+ ae FECL .S~ BOW~GTEL .O~ P0-US SE. Om SZ=ECIE.G= SG- SHEL O- 20a544,0- Sb-40S2.0- HO-gate d= 20-301 3.9+ 
ASEM O~ SO-vEEF-O~ BO-AOEY .~ 3G-968i.0- 40-08er, Or SO-SETT G— MP“ SREL Os BE WCLS~3= JI~TLE SDH 80-7275 7 s. 


SO -GRBI O- 2a-ckTk.d- S-G2et.e- 29-edar.o~ €2-G367: be Sb-Gers.G= 2o-e¢e2.0< 20-5860 e0s1Tkl a ey ~296e.0- 


_ -CEEC.G- QO -OFHT..0~ 29-590S0~ 40-0880 O~ 25-508 .0~ 20-40) t SG €5-901'.0- 20-Falt 0 23-T02E B= PQ-Ira! B= ~ - - 7 
O8~ INTE .G~ O9- TEL. O~ COKGSTE.S- 20-2004. 0- 99-QT0E 0 20-THN 80+ SO-CPLE, O~ ap~Oen2.8- 30-908 8.0- a8- tesa. b< = 
OO-DSEtou- AbeOl al .3- 86-308! Oe soKaeTr. Fe S0-F50t .S= F0=5T HT. O~ aR-Sass, b>) MO-G3BL.O~ AP-SRAC.B— FG=- 2797.9 << = 
= Zi ~ > “ ak « - ot - « ee - a ee = a 
tn = > adavar fre" iets fei te 39203048 Exo e> ate ( 
7 MEMPOE.G — BO-SEOT.C O-EFREO - CheeenE ge -RO-Rer.2 © “Saboudone ep a deresket . jf PS oy 


+ ee om ee A . = ee Ss ee IS em os Ae —* a meme 


ez 


TRANSIENT RADIAL GAS FLOW 


I10 


oe  —————— —— ———  —— — — —— ———  ————————————— ————SSSeSSeSese 


SLIP CCEFF(B)= 106000 INERTIAL COEFF(BB)= 020 PERMEABILITY(K)= 500.000 MO 
PORUSITY= 021452 ROCK COMPRESSIBILITY= 0.0 INITIAL PRESSURE= 0.2000 04 
PRESSUKE SQUARE DISTRIBUTION 
TIME DIMENSIONLESS OLSTANCE 
(TD) 2w OELTA R1=0.0010 DELTA R2=0.032724 
0.250E€ OO 
0.9934 1.0009 1.0000 1.0000 1.20000 120000 1.0000 1.0000 1.0000 1.20000 
T 1.0000 120600 1.0000 1.0000 1.0060 1.0000 1.6000 4.0000  §.0000 1.0000 
120900 1.0000 120000 120006 12-0000 1.0000 1.0006 
0.500F 00 E 
0.9950 0.29599 1.0000 1.0000 1.0000 120000 1.0000 1.9000 120000 120000 
1.0009 1.0000 1.0000 120000 1.0000 120000 2.0000 120000 120000 1.0000 
1.099C 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 
GOse) Ole’, of. =o... Ss ae a a oo on | ae per eer. : a Ti a See 
909933 0.9993 1200090 120000 1.0000 2.0000 1.0000 120000 1.0000 120000 
1.20000 1.0000 1.00CO 120000 1.0000 120900 1.0000 1.0000 1.0000 1.0000 
120000 1.0000 1.0000 120000 1.0000 1.0000 120000 
O.15SOE Ot 
: 0.9922 0.9987 0.9953 120000 1.0000 1.0000 1.0000 120000 1.0000 120000 
er 1.0000 1.0000 1.0009 1.6000 1.0000 1.0000 41.0000 8.6000 1.0000 1.0000 
1.0000 1.0000 120000 1.0000 1.0000 1.0000 1.0000 
0.250© OL 
069011 0.9978 0.9995 0.9959 1.0000 1.0000 1.0000 1.0000 1.0000 120000 
1.0000 1.0000. 14.0000 120000 1-90000 120000 10000 120000 120000 1.0000 
1.0009 1.0990 120000 1.0000 1.0000 1.00009 1.0000 
BOT Or a nn ee Te fey =0 eens pair pS ashen 
0.9903 0.9971 0.9991 0.9958 0.9999 1.0000 1.0000 1.0000 1.00vV0 120000 
1.0009 1.0000 120000 1.0000 120000 1.0000 1.0000 120090 120000 1.0000 
120000 120000 120000 1.0000 1.0000 120000 1.0000 
O.600E O1 x 
0.94891 029960 029983 0.9993 0.9998 0.9999 1.0000 1.0000 1.9000 120000 
~~ f.00060 £.0600° 1.0000 1.0060 “1.0000 ° 1.00¢0 1.0009 1.00007 120000 1.0060 
1.0000 2.0000 1.0000 1.0000 1.0000 1.000) 1.0000 ; 
0.350E O01 
0.9885 0.9952 0.9977 0.9989 0.9995 0.9998 0.9999 1.0000 1.0000 1.0000 
1.0000 1.0000 1.0000 120000 120000 1.0000 1200C0 120000 12.0000 1.0000 
1.29000 120090 1.0000 120000 1.0000 1.0000 1.20000 , 
TOels5e O2 tots ea peat > this © cen Baas <8 a SS oh >") a es eh 
0.9875 0.9942 0.9968 069982 0.9990 0.9995 0.9997 0.9999 0.9999 120000 
1.9000 129000 1.0000 120000 1.0000 120000 1.0000 120000 120000 12.0000 
1.0000 1.0000 129000 1.0000 1.0000 1.0000 1.0000 
0.185t 02 
0.9470 0.9936 0.9962 069976 0.9945 0.9991 0.9995 0.9997 0.9998 0.9999 
ii sae TsOOOG. is D000 mul sO000 = 16000G > 1 c0000) 7 Ne00002 nl s000Onne. ).0000 pal ,0000> = 160000, 
1.0000 1.0000 1.0000 1.0000 1-9000 120000 1.0000 
0e269F 02 
0.9863 0.9929 0.9955 0.9970 0.9980 009987 0.9991 029995 0.9997 0.9998 
0.9999 0.9999 120000 120000 120000 1.0000 1.0000 1.20000 120000 1.0000 
: 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 : 
0.335F 02 
Oe S85 I 009924 0.9550 069965 0.9976 02.998T “0.9988 0.9592 0.9995 0.9996 
0.9998 029999 0.9999 0.9999 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 
1.0009 1.0000 1.0000 120000 1.0000 120000 1.0000 
O.445E 02 
02.9853 0.9918 0.9544 0.9960 0.9971 069979 0.9985 0.9989 0.9992 0.9994 
069990 0.9997 0.9998 0.9999 0.9999 1.0000 1.0000 1.0000 1.0000 120009 
at a 1000 Chea Lo O000 meal cOO00: 7s 1:6 OC 00ren ts 0000mr 160000, gral sO000 mma wi) eugh st e 
2.5355 02 
0.9851 0.9914 0.9940 0.9956 0.9967 069975 04-9931 0.9986 0.9990 0.9992 
029994 02996 0.9997 0.9598 0.9999 0.9999 1.0099 1.0060 1.0006 1.0000 
1.0000 1.0000 1.00900 120000 1.20000 1.0000 1.20000 
0.635= 02 Es nes 
—-—— =~ 95984 7-7-0. 991105 9537 ~~ 069953 ~— 029964 069972 029978 G6 99AF ~~ 069987 529990 
209993 0.9995 0.9996 009997 0.9998 0.9999 0.9999 120000 1.0000 1.0609 
1.0009 1.0000 1.0000 1.0000 1.0000 120000 1.0000 
0.73S5E 02 
0.9945 0.9908 0.1934 0.9950 0.9961 0.9969 0.9976 0.9981 0.9985 0.99989 
0.9941 0.9993 0.9995 0.99950 0.9597 0.9998 0.9999 1.06000 1.0900 __ 140000 


——1-5 0000 —~ 120050 —1.0000°> 1.00007 1.0000 1490060 ~ 1.0000 =" 


“pete ew a seagea—“agenee 7 
t OS.7 


ns ry if x 


rout eho sana tate 1 


Ni 
er ee eT — <r Ren a re fhaenereennene nati Yared — 


Sipe 


os rons 7 
Gn 000.008 DEH aa penge, a winassiso> ‘he ce 
20 GOCE so wanUeshNa WAPTIME, Bed err ginnaasiemion on awe 


8 he ei A! fl mn <i Cele 


va) 


pe Se tas 
shine iets lof hia | Dd 


ie a 


O00. 4 200068 Ooon.5 NOE. t / paint 
“Seok” Bone, FT -" Gobel gana ee 
D00R68 been! “coe. 
oy if 


©0006. OOO! eorayT av 054 6009—4 
MOCK.) SHo0.% ROUHe tf S80G6E sabes Cops t 


ih Bi iy t 


ad moan ypotimin. <caaticticnitialball deen  eleeenteede 


5 ' : 

OH08.) COH0.4 BOG. # TACO.7 wean, + 

POGG+t 8900-4 | DORRef,  OOOGwE  OneOL4s 
ouoesa: — 


0605.4 Beos. | oon, i ‘G00 —4 : 
“8660.0 "Bical il" seats rm or somes ee T 
sy O0CG09  SOOAY EH) Co00s 8 


SO0.7 6980.t  DOGH,s  eObR—) a voces, i> 
©000.5- O00C.3 OLO0+!  WOOet “OGSOrE BH0Gs : 4 
~ i "APD « rh BOs. onea.? ry 


codes - - eee fe y rs ed ae arte — Ph Sheehan m—en > = 
OSOH+t = OOCnt = OOOH. | OOOH) mete oor. ae 16a .0 aes 
COOG.1 COOKE GOH, ) OOCbet  ebennt i ot  O880,1- 00, 


WO0G4 (OPRbot, bo ake ea 


0900.4 Sep tad #O00,%  odbbss coir 
hoo. T ~ eodos Cones “ROG. I bobs E 
rately. oF bt 


2004.) boon.7 obo, 1 oe 0 
weOe,> Ott el ODO. I ED0te § . 

7 geomet Bot 
ae ca tp * 


ai tat es PF rac pete « mond ae Siac 
OC00.t OED O8Re,D Torre teow .6 fe 
OOO. OOREET (9O0e.4  DObdet 6666.7 eee 
WOR F oe 
a sel : Aut - 
mews. ewee,0  -Vetruo evOR.O 


“WOR TOO. ENERO. TF Soin ae 4 
CO0ts a > + 


seee.o  Veer6”  Hown.e | eMese: Spores, ‘2 
MOCG.% = OOROAY O20 t 9009.8 PS 
ObOO. Ff 


000.4 Po es | o0od, 

é ootos's 
. \ oT 
worn SUELO (SRNeLe  (eeee. 
_BOOaNe POeT ys S508. 1 ODN as 


SPOS OOM HOLE > Lv ee 
O0Gb sa . aeayes O9O0.' 200601  eehe, 
ae POST baoD.s | 


“9900 a? ~vaener™ Taeg.o ~ dxpe.e— ster oes 
do0w<) onae. 4 2005.1 OO Ve eo Peve 0 fi 


~*¥8D0 “a ~-rreeie-—rebeiee 
- aver FORE 
7 Once.t 


CeCe = UNPERS (NERF (nee. 6 (Ohbusd | 
booo.+ aged. ‘OG82,1 se cai dll 
ware oo “= OL CRERSE 


Se ‘ 


Hit og 


OI-GARBYE*O- OT-O9LG6°0= OT-QRTA°O- 60-GSZT°0- 60-Ava1°O- 60-d1Lz°0- 60-A0BKE*0-— 60-A0RS*0— CO-A”rSHR*O- BO-CS2T°0- 

B@0-GZG1l"°0- GO-dv9Z°0-— 80-Gz2PE°0- 80-G2SS°0—- B0-Av62°0- LO-OVIT°O— LO-G2ET°O- LO-OIL2°0- L0-992E"°0- L0-ARSH" O- 
L0-00%9°0— 20-ORHB*G— 9O-AzZZ1°0—- 90-dzl91"0- 9O-A9ZZ°O—- 9O-UvOF° 9 90-ISOY 20- 9O-AFEG*O— 9O-G969"0=- 90-9Z0C°0= 
SO-Q911T°O- SO-GHYT°O— SO-A681°0- SO-d27z2"°0- SO-AZTE° O- S0-V0lv°9- SO-AzZSS°0- SO-dZiR°0- vO-N6ET"O- vO-d0Ov°O- 


Date et es aon es eS Re eee pes PTR Si fee ION or IR PI Ee R= oA ee eS EO 205920" 
0°0 11-029S*O- 11-0S98°O- OT-GEEI*O- OT-GeOS*O- OT-OSIL*I= OT-GHAw*O- OT-Ae¥L°0- 60-AHIT*O- 60-G9zZI"C~ 
60-022°0- 60-091%°0- 60-ARF9°0- 66-G6L6°0- BO-GOST*0— BO-GOLZ*0- BO-DISE*%0- BO-A9ES*O- RO-AIIR*O- L£0-AvzZT"C~ 
LO-G21°0- £0-QzZ82°0- LO-AzZzrv*0- 20-G629°0- LO-QIFE*%0- 90-QLET°O- 90-C661*%0- 90-GzLE¢"0- 9O-GOIw*0- CO-AHLS*O- 
90-090R°0- SO-ATII"O0-— SO-GeSt*oO- SO0-0902°0—- SO-008Z2°0- SO-QASRESO-— SO-AGIe¥S*°0- SO-GOLRPO— VO-GI¥1*O0- vO-A00%°0- 
10 3009°O 
BE ee ONO ee OO yn ere Oo Ole eee OO. 4 ee eee OO eee ON. Se eto: ee nero. ae _0°0 O20 isa 
11-020$°0- tI-GZE6°0- O1-GZZT°0- OT-G6IF°0- O1-GLES°0- 60-GROT*O- GO-AL6T*0- 60-G09F*O- 60-0ES9°0- gO-GUTT°O- 
G0-OZ1zZ*0- BO-G6LF%0- BO-GFL9°0- LO-G6IL°O= L0-AL0Z°0- L0-OBSFYO- LO-ATI9*0- 9O-GEOT*O- 9O-GTLT°O- 90-GbLE *0~ 
90-0z%*°0- 90-G00L°0= SO-QL01°0- SO-AI9I*°0- SO-ALEZ*0- SO-GLvE °0- SO-GSIS*0- SO-0008"0- vO-dzZvI°0- vO-d00 v"C- 
10 30SE°O 
0°0 0°0 0°0 0°70 0°0 0°0 0°0 o°0 0°0 0*0 
pitts 0.20) tien pee (Ge 070. «ss OPO V4-AZ09%0= O1-GLT1°0- OF-d6zzZ°0- O1-GLyy°O- Ol-GizPro- EO-GOLI*O- _ 
GS OLQOEE*O~ 60-A079*0- GO-AezZ1°0- BO-A6EZ*O- BO-GEG¥*°0- B0-GELB°O- L0-QL9T*0- L0-OSIF°0- 40-GEES*0- 90-AF0T*O- 
99-CBET*0- 90-G¥SE°0- 90-Gz2z9°0- SO-Gz01°0- SO-ABL1°O- SO-d06zZ°0- GO-AL9¥%*0- SO-A69L°90- H%O-AEVI2O- ¥O-G00v"0~ 
to 30Sz2°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 9°90 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 t1-dGS%"0- 
_01-0601°0- 01-009zZ°0- 01-0219%0- 60-G9%1*°0- 60-CEvF*O- 60-9Z08"0- BO-A9AT*O- BO-GOF¥*O- RO-OPHS*O- LC-OEZ2*O~ 
10-066%7°0- 99-GO1T°0- 90-GREZ*O- 9C-GL0S*0- SO-GEO1°0- SO-aS0Z*0- SO-GEKE*O- SO-GOEL*°0- %O-AzZeT*0- %O-A00%"0- 
TO 30St*o 
0°70 0°0 0°0 0°0 0°0 0°0 0°0 070 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 oro o°0 0°0 c*o 
0°0 0°0 11-dZ9S°0= OT-GERT*0=- O1-A99F°0- OT-OFEG*O- 60-O8FZ°0- 60-809"°0- BO-OSST*0- RO-ASeL*O- 
_£0-G001*0-_20-0¥SZ*0- 20-029" 0- 90-191 *%0- 90-00%" 0- 90-OZ46°0- SO-ABEZ*0- SO-M0LS*0- YO-GOFI*O- PO-A0O%*O= Pe 
To 3001°O 
0°0 0°0 0°0 o°0 0°0 0°0 0°0 o°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 c*o 
0°0 o°0 0°0 0°0 0°0 0°0 0°0 Ot-GEEI*O= OT-G0Sv*0- 60-Gz2SI°0- 
G0-GQE1S*°0- GO-GELI°0=- BO-DISS*0- L0-GS61°0- 20-G9S9°0- 90-GIZ2*°0- 90-G6¥L°0- SO-dESZ°0- SO-AS%6*0- v¥O-Ad00¥°0- 
Sipe J ctechiene ipa ta hy 2 7 Stele teilets sae. oe 00 3006°0_ 
0°0 0°0 0°0 0°0 0°00 0°0 0°0 0°0 o°0 o°0 
0°0 0°0 0°0 0°0 0°09 o°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 o°0 0°0 0°0 0°0 OT-atIt*0- 
OT-086¥°0- 60-GISI°0= 60-G19S*0- G0O-GIIZ°0- B0-GvOB*0- LO-OETE°0- 90-09ZT °0- 90-G2ES*0- SO-G¥SZ*°0- 90-000 v*0- 
; 00 3062°O 


Bn i a pe a RT 


SANIOd GINS OW 1SU1]14 3H1 HOS NOTANATYISIA XNIS 


GW 000°00S =(W)ALITIGV3aNAd 0°O =(89)33302 viiva3aNnt 000°Ot =(8)3434309 dINS 


er SO 


ee 


= a ae A a 
bd<er0t.0- 20-Gsat sO¥ fO- OC ea eo 26-01 ar 0. 
txt S8-GhT a. e— Te=G01 5.0 LO-HTOR 9% TS~G0Eh.d 
asbeteces: 


scualscetuoctee Paani, secgbea ae 
Paecil1a.ce 4O-RET EO ‘Or Sil iege 06 GETS .O= 
@1-GSTi.o= —<— Cir dtar.o~ 2 - 26-009 Fs 
os ee aie bik earned - F a. OC. ° 
S9-6L0n .O~ 20-6) F i.e tir 


TOOT Ai «G~ VO<0f8S.5- $2-O5s6e.6- 
RGUIR Ge €2-005t.0~_ve~ces di P- 
I e.¥  SiaPEBR» 6-21 -0006-3- 


gee 


_ ; be x S-GERS 
ae aS 2 ae =f 
CO-WAOE.G- 20~GRR LOW LS -GeuE De 2068; 08. G~. #-core.e~ Ber Oe F.0~ wbrennes te 
TOCOReD= LOOIER.2~ sO-GTE1. 0+ 20-0951 .0- 60-084%.0 49-0050. BO-OAN Ae 
OO -OON TG BO“ GSE I-O= SO-O568.0* Beret wm 80-8410, 0~ &D-SBIG-0- Vé-dians ste 

935256) .€>Sa-Beotve~ ga So ee ae of “bse 5.2~ 


- 


Peds 1s so Donnas fst- . : 
te ~~ 2. er 
t+ &6-0ri.9~ 86 s00a. o 20 OLES. 0” SOrMG ras fO-—Gsis. j= te-eree.0~ ‘ge~ag2 sad~" aoF f- ag-tsos.ae. | ji 
T2-O96)-0-— (2-GEse.e- ad-gott.e- o6¢-Otar.s- £0-y9t%.3— OD -GAGL.o = SOeVFS9.0-. 20-04 Ce. 9= 
O-~ GO-GEAL.0~ BO-cHGE.O~ BO-OSEL. ON -gteOseT. Oe YaeGat .g~ To"Gis 1 .e— $S-its. a Toode SF. 5 TO Cet beds 
29= CPUStE.O- 68-URse.a- F0<5e5 1. 6-.06-G88! , 5 ¥a-t 15. 8= #0sO5e RiuH 2O-402.0- ail steele adacest -oF 


ee ea = 


Lit 


~- oo ie =) or 


ELZ 


99-N9S1°0- 
9O-QLZEE°O= 
99-d0vL°0- 
S$O-405t1°0- 


90-0221°0- 
20-N10€°0- 
99-0692°0- 
S$9-OeeI°O- 


-£9-9006°9—- 
90-0752" 9= 
99-G5°9°0- 
$O0-0961°0- 


£0-02iS°0- 


_90-C002°0-. 


99-0209°0- 
$0-Or81°0— 


L0-O10£F °0- 
99O-OI9T"790— 


90-G022S°9=_ 


$0-Q621°0- 


40-0921 °O- 
20-01e8* 9- 
9C-09T¥°O— 


2S0=G2 2203 


3o0-dfecEe*O- 
20-DILE°O= 
90-0%62 °O- 
GO-d19T *0=- 


S0- 


90-O£9T*O— 90-0221 °0-~ 
90-d795°0- 90-OVEE*°0- 
90-QT0R°0— 90-0£28°0- 
SO-Ov¥T2°0=— SO-AS%2° GO— 


3S0f°O 


90-0261°0=— 
90-a9c¥"°0- 
90-0066°0— 
SO-d9R2 °0- 


YO-OLET*O— 90-QA9tT°O0— 90=-0T91°0= 


90-AB2LE°O— 9O-URGE* O- 
9I-CELL°O— 90-0079 °0=- 
GO-9CTC*°O— GO-CSv2*0- 


979-190 1°O-_90-G2Tt*0— 
90-OE8B2°0— 90-dZ2IE*0- 
29-0 TEL*O— 90-Av08°0- 
SO0-O2Z12°0- SO-AS%e*°O0=— 


40-0FS9°0— 20-QtvHL°0=- 
90-0S22°0=— 90-02S2°0- 
90-0699°O0— 90-OF 72°0- 
SO-9012°0- SO-OF¥Z* O- 


40-GSSE°O0- 20-Odt¥°0- 
90-0291°0- 99-a98T°0- 
90-956S°0- 90-9599" 0- 


S$O-GL02°0- SO-CIe2*0- 


40-G2ST°0- 2£0-USPT°0= 
2£0-0065°0- 90-U8TT*0—- 
S0-G287"0- 90-09SS°0- 


€0-d¢2""0— 80-C0SS*0- 
20-GS9%"°0— L£0-008S*°0— 
90-OESF*°O0=— 90-G2z2Z7v°0- 
SO-OT6T°O0— SO-a82¢2"*0- 


60-06S9°0- 60-0948°0- G0-G6I1*°0- 


20-0611 °0- 
90-OvV9T°0=- 
SO0-02 v1 °0- 


40-OLST*°0- £0-GL02°0- 
90-0602°0— 90-0E9Z* 0- 
SO-GEzL2T*O0- SO-dz2iZ°O- 


90-a00¢ *°0- 
90-0£26°0- 
S0-a98z2°0- 


90-0Szt°0- 
90-Avvl°O- 
90-O0v88°0- 
S0-a9GZ°0- 


20-0278 °0- 
.290-90282 °0— 
90-A9ER° O= 
S0-a9gR?e*0— 


£0-006%°0— 
9O0-GLET2°0- 
90-9602 °0- 
S0O-dS8¢ °0- 


40-0S22°0- 
90-G6F1°0— 
90-0009°0- 


B0-dv02°0- 
20-GI12L°0- 
90-Of£0S*0- 
S0-0S22°0- 


80-OGST °0- 
40-0222 °0- 
9O0-G0EE°0— 
$0-0292°0— 


SO-3£92°0 


S$o0-7222°0 SO-10R1*°O 


90-0902*0- 90-0922°0- 90-asez°0- 
90-019%°0- 90-ag6v*0- 90-GeLs*0- 
GO-Ov0T*O= GO-QEITIPO=- SO-AQvZI1*O- 
G0-G0%£°0- SO-G6I1%*0- S0-A1¥S*0- 


S0O-56eT°0 =OI3NWONd SVD JO NOILIVHI 
90-GS97"0- 90-N28T°0- SO-CITE*C— 
90 -ChESTO— GO=OTE9*O= 9o=Cf 9" O= 
GSO-OZE1°O— SO-GIST*°O—- SO-GBYT*O- 


so-arzz°o- 


vo-azt*o- 


vo-d00r"O- 
—20  AG£2°.) 


90-A9LZ1°O— GO-GE6I°O- 9O-ATTZ*0- 90-OTE2Z*0- 


90-AS2v°0— 90-OF9%*°O0- 90-A09S °O- 
SO-OT0T°O— SO-CQITI°O- SO-Az22Tt°0- 
SO-OIVE°O0— SO-Ol2v*0— SO-dQv¥S°0- 


99O-GVETSO— 90-GY"ST*°O- 9O-QIZ1°0= 90-UGBI2O-. 


90-ABZFEYO—- 9O-A9I%°O— 90-ALS4°0= 
90-0¥26°0- SO-OROT°O- SO-d6TI *0- 
SO-G2vt°O- SO-dL27*0- SO-ORtVS*0- 


20-9296°0- 90-O0601°9- 90-G¥zZ1 °0- 


.90-A9ITE°O=-_ 90-G2SE °0- G9O-CF6E*0-_ 


90-90616°0— 
SO-QEVE ° 0— 


SO-GdZOtT°O- GO-OFIT*O- 
GO0-a0S¢%*O0- SO0O-AQISS°0- 


40-002S°0- 
90-OvhHZ°O- 


20-0029°0- 240-O18L°0- 
90-0822°9- 90-QLTE°0- 


SO-GkwE*O- SO-A92v"°0- GO-0SSS*0- 
£0-G722Z°O— LO-OCEEPO- L40-010¥%°0- 


90-d09T*O0— 9O-OEGI*O- 90-9222 °0- 
90-QLEL°O— BO-GLYR°O— 9O-CELE6°0— 


SO-O102°0—_ SO-N9E 22° O=_SO-dT 8% ° O-_SO-A2vE*O-_S0-die* 0-_ GO-6SS°0- SO-9262°0- vO-GEEL*Q= YO-UCOR *Q= 


80-ACG06°0- L40-GSI1*°0= £49-a9vl °0- 
20-O0268°0— 90-GUTL*°O0= 90-aSET°0- 
90-9265 °0- 90-d402°0- 90-0SEB°0- 
GO-G8EE°O—- Sd-G92%"°0- SO0-019S°0— 


BO-GEIZ*°O- 80-GS82Z°0- B0-DCISE*0- 
20-09SE°0=— L0-009v°0—- 240-0F09°0— 
90-AZtv*O— 90-d0ZIG*0=— 90-dzZE9°0- 
SO-aeze°O—- SO-dizv°0- S0-019S°0- 


90-N60S "O- 
SO-GSEI*0- 
S$O0-US92°0- 


90-a20S°0- 
SO-U2EF T° 0- 
SO-a122* O- 


90-Q0vT°0- 
90-AeEv*O- 
SO-au2t*o- 
S0-0822°0- 


20-9606°0- 
90-a09F*0—- 


so-asei°o= 


40-O0f8v°0- 
90-0S592°0— 
SO-aztt*o- 


249-OSA#T°O- 
90-aSal*o- 
90-O0v86°0- 
S0-aooR*0- 


90-0c¢S¢*0- 
90-0255 °0= 
$0-0051°0- 
vO-Ou2ZT*O- 


SeO=CO 1s 50=- 


90-0255 °0=- 
GO-ALe1°0- 
v0-O62T*0- 


90-08ST*0- 


90-ALF T° Or_ 


SO-GE vl *U- 
vO-N0LT°O- 


90-aso0t*Oo- 
GO0-Q390"°0- 


vO-GIel*o- 


20-Q1fS°0- 
90=-C60€ *0= 
SO-N62T*0- 


20-0V£2°0- 
90-Q10Z°0- 
SO-a9TT°0O- 
vO-QSET*°O- 


@0-a80S*°0- G0-0929*0- 


20-0082°0=— 90-G001°0- 


90-0222°0- 
S0-0208°0- 


90-02S6°0- 
vO-GLE1°0- 


90-092 77 0= 
8C=-aiS7* C= 
SO-92 9 Weo = 
¥0-000 ¥°0- 

2Q ASE9°O 
SO SOEs. 0 == 
90-9096 9'° 0= 
so-cSs9T*0- 
70-G00v"0= 

20 3Sts*o 
90-caeZl*o- 
SOG Se 0=a ee Ss 
SO-dc 91 °0- 
v0-000 &°O0= 

zO 3Sev"O 
20=-drd T° 0= 
99-Oc9t 0 


~90-OS 7B °0=_ 90-0256 °0=_SO=-020 1 °O= SO-927 1° O= SQ-OBE12O=_ SO-OLS1L2O= 


%0-000%°0- 

20 3aSce*o 
20-U9698°0- 
20-CGSE*0= 
SO-O6v1°O0- 


Zo 3092°0 
40-05624°0- 
90-Oem7°6- 
soO-dZel°o- 
¥0-000 ¥*0- 
ae ee CO 
£0-0268°0- 
99-G6z21°0- 
so-aalt*?o- 
vO-000 »°0— 

Zo 35£1°0 


c = on a a = Sees spbeieube. po iph!  g €0-OnEL » 
7 a = 7 2 a oe 


Sii 


a ‘GRrGEBS 38s “RO~cRtEsEH coseeraver, panama 


etirs TO-OSVErO= TO-QUEAC- TS-O4AT.6~ TOWat aD. o= Fo-usae ee sscaesiven 8 . 


eae 
SO-AESLEM= HO-TLEP A= OO“ OE.O- ao-otee 90-G80.G> Bo-C41t.o< + 
eo) a TO-QPdocd~ (0-Oder.0= To-Oret.o~ oa-daehoan south pecwene ae 20-0201,0" 29-0108 ,65 se-dackedt 
perease. ba s anltienmnate = ign ia seginatameste ‘SOYER AT Ae psi = agelltlaneeaeais ae Kocnges,s- 


Saaeivab= neue Guan? aeceeenae” w0-0188 yo= oneyee sae aamor sed 4 
_ BOWEL ASD 80-ORORL6~ O9-GGFE KOH S5-OCHo5G~ 4u-~ONRS 20— 


RR OE RS CO<ORRreR- 20-981 io 20-G9LRLOK OC-See I. a= pee erepr ee ome 
Pe Se > | i: S0-9x2t,0~ 5 O-MEST .O~ Tosteka LO 8¢- -~ GAS .5= Beye: 


es 

* soma aecethieen POC. 0< "g0<9ens.0— 20- Grek. 0-8 re pa bas: 
= G6 -GeRE LOS SHB-OtAasd~ 6S-DOdt, 0% “S8=-Gt an 2+ “eo: 

- SOADTAL LOH BE-2EH 1604 OO-OAETAD~ OMUE FEL) ac-oKe. 

So-Gtet s3~- Te-G25a.9- To-OViesG= to-sens.o- Fo-gere, 


-  POWRSSSTOS MO-Ke Nad 40-98 Teo" SE-OeRdet= St-ObIOL Gr 2 ¢ 
“SO-GOC\.O= 99-005 S.0S aS GEER O+ 80-0585 50~ a0-23its0> 3e- 


#0-S2c apr 20° caseee 3 see 20-Beaheo~ OO UESL Om A6-G9 1940 e 'e0-O8 es .0— feces pen os 24-Gat e oom 

“Fo-at er. e— a OP 3 90-" 90-a6I Us O= AG=G3R140- O0- GAL t.a~ #0-Ged 1.5» 20-055 1.9% e0e00n25 nee w=-05Et.(2 
f / ; ‘. > S¢ BWresc 

goosher. Ge odes (200 SOnHoe Le OX Sb-0905 60= bo~aser oe #0-0189.5~ Rosetta ehnueat, O= de-absls Bm #E-GOE ta d= 

oy-aeet. g~ “SET T6O> 60+O063,.0- SO-GESHeO— SE-DIT ie O~ CE-G1 ts, 2~ Si-uUsSisD- GO CELT, o~ ZAG Fee SO-dt et. 0- 


» @0-wiet ig OP USE sO BOSE: G~ SO-UOPE, D+. 8O-OCS0.G= DG-GL ed.0= AU G298.6- BG-n00e.9~ |g-ct ae 26 - Cl Labo 


Se-atss- o— on Ped O~ a0-tset. o~. eorctss On SB-GN t B= (ag-at 61-0 So-H1IS% ‘G- 39-6105. 0- 43-6% SO5Gas .. = 
. ay ame # - | signal : - “ me ante et tS terme ee 4 
OO-SEP 1 OH HPHOF iS. O- EQ-uesh, O& Fe-Gows. G 'Po~ uses, a ¢@=a01+.o- a-u! 92 2S G-tig5t, o> “o> hod= s8-o00«.6- 


S-UNGSt-O- 06-0008. 20-0040. 0- s@-Geev-b= #6-Kette Ge E£O-UETI«S— £4+G+5508- e0-IFt,b« Seal oe w-Ga4:, e-- 
O0-OTEE «0+ $0+@04e. Be SIMGHVE. 9+ BS -Ga hte O~ OF-Ft0s.0—. 60-GavE. or 20 neh e se oo dead. + #2 Git ka. 0~ Pe 
oOo-9¢! +8- 60-080: a= SO-QVT1 R= auHee L.o= b0-CReset= e0-aeSt.5— we-pres 5 #-- so-cetss af P-GP ERD eS C- 


i 
Ne ee dee 8 ee ee 


— 


SsVAD Ste Bere 1607 Ta S aescoae aS oe peter 


— 


7) SP 2OL eG. BO-BaksD AE-BisheD 8 _Lerseen,0 Po. esr ema titel sao WS eeirian 


A A TN APES fit neh alias pmo mes 


A | ARE i Se ee ee ee ce get 


— 


TRANSIENT RAOIAL GAS FLOW 


SLIP CUCEFF(B)= 10.000 INERTIAL COEFF(BB)= Oct PERMEABILITY (K) = 


ri 


500.000 mD 


PURUSITY= 0.132 ROCK COMPRESSIBILITY2 0-600D-05 INITIAL PRESSURE= 0-200D 04 
PRESSURE SQUARE DISTRIBUTION i jan) one fa 
TIME OIMENSIONLESS DISTANCE 
(To) Rw DELTA R1=0.0010 DELTA R2=0.032724 
ve250= 00 
0.9985 1.0000 1.0000 1.0000 1.20000 1.0000 1.0000 120000 1.0000 1.0000 
7) 00605 fe0000, . 1.0000 ~ 150060, 1.0000 7 £50000, 1.0000, 1.0000 1.0000 0000 
1.0000 1.0000 1.0000 1.20000 120000 1200V0 120000 
Oo50u 00 
0.9952 0.9999 1.0000 1.000U 1.0000 120000 120000 120000 120000 1.0000 
1.0000 1.0000 120000 120000 1.0000 1.0000 1.0000 1.0000 120000 1.0000 
1.20000 1.0000 1.0000 120000 1.0000 1.20000 1.0000 
Z0si00;. Ol: ) ) *neoeo «oe ae he Oe Te te eg a ae ee 2350 aera Sei. sca re 
029934 029994 1.0000 1.0000 120000 1.0000 120000 1.20G00 1.0000 1.0000 
1.0000 120000 1.0000 120000 120000 1.0000 1.0000 3.0000 1.0000 1.0000 
1.000u 1.0000 1.0000 120000 1.0000 120000 1.0000 
0.150r O1 
0.9924 0.9988 0.9999 1.20000 1.0009 1.20000 1e0000 1.0000 120000 120000 
"TF 20000 #26000 1,0000 °}1.0000 “120000  I.00060 ~1.00060-—J¥.0000 — 1.50005 _j<0000~ 
1.20000 120000 1.0000 120000 120000 1.20000 1.0000 
06250E Ol 
9.9912 0.9979 0.9995 0.9999 1.0000 120000 1.000U 1.0000 120000 1.0000 
1.0000 120000 120000 2.0000 1.0000 1.0000 1.0000 1.20000 1.0000 320090 
1.0000 1.0009 120000 120000 120000 1.0000 1.0000 
orsser oT on en ee ee eee tas ae aa se ee ee 
0.9905 0.9973 0.9992 0.9998 1.20000 120200 120000 120000 120000 1.0000 
1.0000 1200VU0 120000 120000 1.0000 1.0000 1.000U 120000 120000 1.20000 
1.0000 1.0000 1.0000 120000 120000 120000 120000 
O660UE O1 
0.9393 0.9961 0.9984 0.9994 0099638 0.9999 1.0000 120000 120000 120000 
~~ FeG000 °#&35$£.-60050 ~[.0000 1400007 140000” T.0000 ~ ~1.0006 4.00007 j 120000 1.0000 
120060 1.00600 120000 120000 320000 1.0000 120000 : 
0.850E O1 
0.9887 0.9954 0.9978 0.9990 0.9996 0.9998 0.9999 1.20000 1.0000 120000 
1.20000 1.0000 1.0000 120000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 
1.0000 1.0000 120000 1.20000 1.0000 120000 1.0000 : 
ICN en 
0.9E76 0.9944 C.9969 0.9983 0.9991 029945 0.9996 0.9999 1.0000 1.0000 
1.0000 1.0000 12-0000 120000 1.20000 1.0000 1.0000 1.0000 1.0000 1.0000 
1.0000 1.0000 1.0000 120000 1.20000 1.20000 1.0000 
O.1 BSE 02 
0.9871 0.9938 0.9963 0.9978 0.9937 0.9992 0.9996 0.9998 0.9999 0.9999 
——— —-= “1.0000 1.0000. "1.0000 — _1.0000°—— 1.0000; 1.0000 — 1.0000) ;--1'.0000° _—1.00007—_ 1.0000 - 
1.0000 1.0000 120000 1.20000 1.0000 1.0000 1.20000 
O.260E O02 
029864 0.9930 0.9956 0.9972 0.9981 0.9988 0.9992 029995 0.9997 0.9998 
0.9999 0.9999 120000 120000 120000 120000 1.0000 1.0000 120000 1.0000 
1.20000 1.0000 1.0000 1.20000 1.20000 120000 120000 
0e335t 02 oa: 2 aie re 
6.5861 0.9925 6.9951 0.9967 0.9977 0.9984 09989 09993 0.9995 0.9997 
0.9998 0.9999 0.9999 120000 1.0000 120000 3.0000 1.0000 1.0000 1.0000 
1.0000 1.0000 1.0000 1.0000 1.20000 120000 120000 
0.425F 02 
0.9855 0.9920 0.9946 0.9962 0.9972 02-9980 0.9986 0.9990 0.9993 0.9995 
0.9997 0.9998 0.9999 029999 09999 1.0000 1.0000 1.0000 1.0000 1.0000 
me at PL OOOC me 1s0000m 110000 . 160000,  M00008 1 0000s al COCO mia ry 
O.535t 02 
0.952 0.9916 0.9942 0.9958 0.9969 0.9977 029983 0.9987 0.9991 009945 
0.9995 0.9997 0.9998 0.9998 0.9999 0.9999 120006 1.0000 1.0900 1.0000 
1.0000 1.0000 1.0000 1.0000 120000 120000 1.0000 wt 
0-535= 02 ; cy. pee es 
oo 0.98438 °° ~~ 029912 ~~~ 0.9938 ~~ 0.9954 ~ 049965 069974 0469980 ~ 649985 0.9986 0.9991 
0.9994 0.9995 0.9997 0.9998 0.9998 0.9999 0.9999 120000 1.0000 1.0000 
120000 1.0000 1.0000 120000 1.0000 1.20000 1.0000 
Oo7I5E Oe 
0.9347 0.9910 0.9935 0.9951 0.9963 0.99715 0.9977 0.9982 0.9986 0.9990 
0.9992 0.9994 029996 0.9997 0.9598 0.9998 0.9999 1.0000 140009 1.0000 
=F OGO0 + 120000 7-1s0000 - 1e0000 = 1e0000 100005 s0000 5 ~~ mn 


ee + cme eee ae hy ee eee ee —: Ty 


O48est G600.t  O900.) Ob0G08 GHOUat 
“e000. t Seosyy ie SE teh "eer oF 
; ODOR cre 


_—eeetet  wodonl OGeO+ 1 GOOG PODO+5 ‘peed. 
GOO0.2 RAO, I aooo.t gon. ks (OORR.t | “WSR Et 


ital ee ee ee ee PRON aR By may heqe wt 


-teseso7> vaseia“eawo.0 | sebese —bseese —kakose t Mmbulm weenie 216050" “neneet 


™ 
- 
a4 


a 


6m 900.908 he acetone ret we wean e103 a 


a0 2068.0 sauvetint okay Ry 26-onbasO Samra cjrh tl ae x sa 


. Tale sesamaaeere 
+e1 eto. Oeke reat ‘onan oe estrus son 
Pie 


| mh 
OU00.! OOOGsT POS%- 4 obs - fepaet ss 
obo <f"” sec0.4 bbe TF” seeee Ty ~" GO pa 
; Pet as o 
Sedst 880002 cade es Ay PMs t caioe 
©uU0C. f 090044 ; RPPSs t 6006 .F' OCC t GEO» 
ODOR. Tr ir & oeou.t 


a ee ed ae - 94h em. od mee ee ain Gd Rae oe 


O080.% OOO. meth 


S000.) 600061 80000)  etvars aneaks beoo.s 
C60Grt SC8OC.f OO0%R | CFGVRF oOEU-F se - 

e 14 eas te . oy tee 
aves. 2008.) 960% “vodeur : i 
CUOGs4 seet.t 990005 a ae 


Cod. t Dr eo | VOOD as ONG. k RAND] 
oo00. 77 boa, ORG rE ~~pneot.! * Tpeost 
i 4 ARG et 
OOUGs! *60o,t Sages! bed 4 3 
oved.t CHOBs 4 6206.5 0 
; Shebia 


net 
Oeoest OOO FRR BP ened pnb 
Getu-t OCR at COORG! . O00, 8) 1 
iD. . 28.404 Pee 

i fis) 


5 : Va 

ergo. orn. Oo. #7e*iG o°08,.9 

6FO6+ ET" C606. 7" ONG i, am 
oot 


4oee.0 yeer.g « aeeese.. ‘eee -s 
SOR oT DOG st RD OEY « ‘ POO, - 
; oboo.t 


Wore a net eo ee 
@e0,% GOES SOCGHet 


ee en eC ee 
9000s , Preys g000.4 G08, 4 \ 
‘ = ete 6008s PF TAgee Er > 


cese.o | £OCHyR  THWOAE” ~LOOUSe  XYHeLD Oe, “t 
Od00.4 C6CR.f G996,4 cOOBLh eFee.e © ni ay ites 
rls : f adben! ‘Duets; OH a a i_. oo OObo.F © 


GO05-1 O60Het —BO0G+4 POSH.G ShOe. a eG BON.0 fore .o aOEHSD 


O80. 2900+) BOGtrs Ce OFO0.5 SONGst 
B fevees bie ,e 


oeoy .@ onve.9 5800+ v8.9 Yee. 0) “a 
Boed.t once, GO00.!  OPOr,.0 eree.e 


“000.1 ~ BO08.1 '~ 60006 ‘Rope. 
i , 4 sear oO ; 
. A ; roe 
> i a) ? 
‘ a4 
abe ats 7 
: ss r — ; < i . 
2 p24 
‘ : f | i . 
i : ‘ Y - cn \ 
i f F Ff pe i ny fi W 
f t; pal Oi ad a 


I14 


O1-QS1IZ°0=- Of-Avze*o- O1-asev°o- ot-arrz°0— 60-GOILPO- 60-GS91°0- 60-A9%2*0- 60-aL9F*0- 60-azLnS*0- 60-dbtR°O- 
BO-GIZT°O- GO-A62 1°0- BN-A%9Z*°0- YO-GEEF*eO- BO-aNneES*o- ®80-Gore°o- 20-dle2t°o- 40-OGzZ1°0- L£0-G2Sz2*0- 20-aQ0ur*0- 
£0-QETIS*O- £0-09422°0= 90-G201°0= 90-a2¥I°0- 99-AIHT°O— 90-GL9¢C*O- 90-A29E *v- 90-aASRY*°0- 90-aF ¥9°0- 90-GvoR* O- 
SO-GOTT°O0- SO-d2¥I°0- SO-NeBT*O- SoO-azEz°0=- So-aR0E*o- SO0-G99¥%°0- SO-dSSS*0- SO-afI8*0- v0-G6EI°0- v0-G00v°0- 


SRS b pease eee we See ee OE A ee Oe. ee ee en Ca eae PN ney ey Mea eee 2A Ee at ee. SLO OS R20. 
0°0 O°O TI-G69v"0- TI-aSf2°0- O1-ASTI*°0- Of-GORT*O- O1-aze8z°0- OT-aI¥y*0- 01-0069°0- 60-0001*°0- 
60-0691" 0- 60-0097°0- 60-GET¥*0- 60-G9%9"°0- BO-DI0T*0- B0-GZST*0- B0-AS¥z7°0- BO-atAF*O- BO-A16S*0- 90-6516 °0- 
Z0-Gtvt*O- LO-OL 12° O~- LO-DIEEO- 20-d¥0S*0- £0-GI9L°0- 90-avIT*0- 90-90Z1*0- 90-G0Sz°0- 90-aFcF*O- 90-4225" 6- 
99-TeeL°O- SO-GvOT*O- SG-Avel*O- SO-d6EI*0= SO-GFLzZ°0- SO-d6Z£°0- S0-azFS*0- SO-GR0R*O- vO-OI¥1*0- vo-G00v'0- 
to 3009°0O 
be o°0 SOU) S. OSCE pt BRGY 2 OS Se oC 0120 neon Oe 0 Meee nC 2 Ot Os Ohm Warden. A 
OFO  Th-O2ev"O- Ll-ABIE%0— OF-avzt*O- O1-G6ZE°D- A1-G2zZ9°0- 60-AL1T*0- 60-d6I2°0- 60-Ab0%*0- 60-4092 °O- 
BO-Gt¥i°0- BO-ORSZ*0- BO-GZL¥°0- BO-A¥SE"0- L0-GESI°O- L0-OELzZ°0- 20-G6L*0- 20-GIER*0- 90-azHT*0- 90-cRBEFz*0- 
9O-GI6E*O- 90-G6Z29°0- 90-ABAG*O- SO-GIST*0- SO-aRzzZ*0- So-aAEFeO- SO-a80S*0- G0-aL64°0- vO-Z41*0- ¥O-Gons*O- 
TO 30SE°O 
0°0 0°0 0°90 0°0 0°0 0°0 0°0 0°0 0*°0 0°0 
CO i OO re yr ees 0°0 0°O0 1f-G209°0-_O1-d6ZI°0- O1-GeSz2*0- O1-09I1S*0- 60-afoT*O- 
60-0902°0- 60-G21¥"0- 60-d0zR*0- BO-aF9T°0- B80-GzZzE*0- BO-aLE9*0- LZN-GeZT*0- 20-Gl¥z*0- 20-aF ab ° Oo 4£0-O1RA*e0O- 
PO-ASIT*O- 9O-ASOF*O- 90-AISS*°0- 30-G1Z6*0= S0-9291°0- S0-aNLzZ*°0- SO-aLS¥*0- SO-aF9Z°0- vO-OEeI°0- vO-ao0e*0- 
10 3092°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 o*0 0*°0 0°0 0°0 0°0 0*0 0*Oo 0°90 0*0 
-} 17956850 01-92 ¥T20- OL=O09F = OL-dzZBR*0- 60-9S1Z"0- _60-0125*0- G0-d9zT*0- BO-G00F*0- POKAFIL*O- ZO-qZ9I"O- 
40-GBBE°0- 40-G2L88"°0- 90-A661°0- 90-G9E¥*0- 90-a826*0- SO-aI61°0- S0-a9Z£°0- SO-aeIzZ°0- ¥0-AzZ eI *o- v0-G00v°0- 
10 20610 
0°0 0°0 0°0 0°0 0°90 0°90 0°0 0°0 0°0 620 
0°90 0°90 0°0 0*°0 0°0 0°90 0°0 0°70 re) 0°0 
0°0 0°0 0°O0 TI-GIEB*O— Of-GozZ*O- O1-GIBS*0- 60-G%SI*0- 60-GL0¥°0- 90-G801°0- B0-aee¢*0- 
BO-G0S4°0- 2£0-0461°9- 20-091S°0- 90-deEt 20=_90-99¥%£°0- 90-Oz8R°0- S0-G1z2°0- S0-d6HS°* Ow -VO=Q6E 12 O= 2O-GQ00peo= 
TO 3001°O 
0°0 0°0 0°0 0°90 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°90 0°0 0*°0 0°90 0°0 0°O 1%-0462*°0- O1-0z8z°0- 01-a866*0- 
80-G2SE°O- 80-G¥z1°0- BO-GLEv*O~ L0-G¥ST*0- £0-a6ES*0- 90-G061*0- 90-0229°0- S0-OF%?7*0- S0-a0v6°0- ¥0-000%°0- 
ee eee ot RE Rt a a nee ee QO BAD OSRO = 
0°0. 0°09 0°0 0°90 0°0 0°90 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0*0 o°0 0°0 0°90 0°0 0°0 0°0 0°0 0°0 1t-Gziz*o- 
OT-O¥LZ°0~- 60-G90T*O- 60-GZ1%*0- BO-GzZ9T*0- B0-GHY9*0- 20-G¥9Z°0- 90-GITI*0- 96-006¥*°0- So-avez*o- ~0-000%*0- 
e% 00 30S2°0 


SANIOd GIUD OF ASHI4 3H41 YOS NOIANGINISIO xNIIZ 


Ow 000°00S =(*)ALINIAVaNUad 0°O0 =(98)434303 WwIiu3NI 000°Ot £(6)443309 d1I1s 


bit 


? Sibi vee 2 
: ; ‘al 


atin es ane B0-0861.0- 20 O40 7.0- 
Thay (Se @e TO-G1kL «On %O-G868 
P0-SSNSeER- LP“AEt A «T= PO “esSs O~ BO-GI01.5= 
O20 _1+-Htets sell rt-Gers« e SIGE TT «Om 1-081 2e~ ere eh alee. 
aD-~G541.6~ 29-857. ~ £0-11E >< O~ 
YO-GANEsO- O6*Sgel. 


‘eQ-aras so 


96°C991 5- 


- @®6-cOes .o- 
CH we Lest 
@0-cisi.o~ 
01-3e1G .o~ 


+= 


7% 5 1<585e on 4 


<2- S2-etr +04 
O-G 167 «0- OG-OeT? -3- 


O- 6C-224140~ 08-uaes, +o- 
ROW“ OVE 1.0 = BESDIGE. O- AO-TNSE Se Be teiad oH GE“ORLE-R+ Te-GPsh 


OF “ASE. S~ OF -FE4eS D> ~GLLt .B- @u-Gal’ .o- 


BG-QT21. Oe GP9 GP eh G= OO-Glet.- KS-YISE. & oe 
tr-naee 8 


20-0FR2 26> 


: rin te Seis neat . 


St,O= t4-ire,0-" 


o — emer hack aries ae be 


ne. 


2-080. 0- ea~dnen > 26-GL18.a= 
2N-BT25.9- 29-Gkak ot~ 6 


-ia +. 8~ 


= (6~O0T ¥.O-n, 


PU-OES? B= VE rUOek. D+ CH ON 6E 6a 


i 


ee 


2m 


— ee 


tar eB~ idlabcas 
#i+6- $0-0808.6-"_ 
FO 20; 008% 8 


te WREST 


eS ee 


ead. osatadso~ *o-cope. a- 
3-260 '.ue oG-n625.8+ 


8S- Uk Bh eb WE-ULSE 6D - 


62~-GP Tie D+ 69 -GO08-0-_ 
@@7 Of 6o-5r @ 
¥OxQs #5 oO SQ-G-s1-= -_ 


PO $180 5 =: 


a. 
“fo idea: 


“Care. G- 


B+ CVerwae ge Cate-to — 


ee 


' 


115 


90-aSeT°0- 
90-d8TE °0- 
90-aS2L°0- 
$0-a88I °0- 


90-OROT°O- 
90-G0282°0- 
990-0169°0- 
SO-0ZRARI °0- 


40-9224°0- 
90-0LE¢ °0- 
90-0S%9°0- 
$0-a9861 °0- 


40-0220 °0- 
_90-atHI °0- 
90-0R2S°0- 
S0-aze1°0- 


£0-06¢2°0- 
90-a0¢21°0- 
_90-9¥60°0- 
S0-Ga2t °0- 


B80-O1£6°0— 
240-0669" 0- 
90-O9B8E °0= 
SO-002t °0- 


$0-3S0£°0 
90-A8bI°0- 90-GI95°0=- 90-a9Z1°0- 
90-09%F°0- 90-A9ZE°0- 90-aR0v°0— 
90-aF#92°0- 90-Ge¢8°0=- 90-09£6°0- 
SN-GFI2°0- S0-AS%z°0- S0-098z°0- 
90-A611°0- 90-GIFI*0- 90-aStI°0- 
90-G60£°0- 90-GREE°0- 90-G0LL°0- 
90-A9S2°0- 90-0z228°0- 90-9406°0- 
SO-GETzZ°0- S0-aSvz°0~- SO-098z°0- 
40-G€29°0- 20-00986°0- 90-G0TI*0- 
90-dEY9z°0- 90-016z°0=- 90-aFz£°0- 
90-GITZ°0- 90-dv8L°0- 90-0998°0- 
$0-Az1zZ°0- SG-Gyvz°0- SO-d9nz°0- 
10-06¥G°0- 20-G1£9°0- L0-avz2°0- 
90-aS0zZ°0- 90-GIFZ*°0= 90-119z°0-_, 
50-OS¥9°0- 90-d02Z2°0= 90-aE0R*°0=— 
S0-0602°0- SO-GEvz*0- S0-G9Rz*0- 
40-Gvuz*O- 20-GREE°0- L0-GI0¥°0= 
90-dE¥1°0- 90-G991%0- 90-a261°0- 
90-G19S°0=_90-GlE9°0= 90-Gz2z22°0— 
S0-S02°0- S0-N0%2°0- So-avPze0- 
40-AG11°0- 20-AzeT*°0=- L£0-aSZ1°0- 
20-G298°0- 90-dt0t*o- 90-atzI*0- 
90-005¥%°G- 90-G¥%2S°0- 30-a809°0- 
50-046 1°0- S0-OvEz°0- S0-G0e8z°0-_ 


B0-d0E2°0— 
240-0v62 °0- 
90-9V92 °0- 
S$0-O8STI °0- 


“60-092 °0- 


80-0788 °0- 
9O0-AT vt °0- 
SO-OLET °O- 


80-JU00E°0— 
40-GELE°0- 
90-AIce°0= 
SO-ORBT°O— 


B80 -OQ06F °0- 
20-G22 v°0- 
90-aFrEr°*O0- 
s0-a922° 0- 


“60-G0¥8S°0- 60-G062°0- 


£0-GBIT°O— £0-08ST°0- 
90-G281°0- 90-ALES?°O- 
S0-069T*0- SO0-ag02°0— 


80-020S°0— 
20-0%76S°0- 
90-0290°G= 
so-df22°0- 


$0-3£92°0 


90-0261°0- 
90-O£vv°0- 
so-az0t°0- 
$0-alv£°0- 


90-aG09T°0- 
90-9S0¥%°0— 
90-0965 °0- 
SO-G2vEe °0- 


90-drZzt°o- 
90-OLSE°0- 
90-0255 °0- 
SO0-OEVE°0- 


20-a0e8 °0- 
90-62 °0- 
90-0268 °0- 
SO-AL VE °O- 


20-OvLb°O- 
90-dTt2z°0- 
90-0218 °0- 
SO-agve °0- 


20-aS12°0- 
90-Ovvt°o- 
90-9702 ° 0- 
SO-ATVE°O- 


B0-92S9°0- 
20-0602 °0- 
90-1095 °0- 
SO0-GZEee°0- 


80-0201°0- 90-d9¥1 °0- 


20-GT1I2°0— 
90-0962 ° 0- 
S$0-06S2°0- 


20-0082°0- 
90-Avi£°O— 
GO0-QSZE °0- 


S0-A¢ee°O 


90-0602°0- 
90-d0G¥v°0- 
so-a2ztt°o- 
S$0-002v°0- 


S$0-308T°O 


90-042 72°0- 
90-012S°0- 
Sso-Ge721°0- 
SO-dEvS*0- 


90 -G921*0- 90-avé1 °0- 


90-0L v%°0- 
S0-00TT°0- 
SO-dI24%°O- 


90-OREI°O- 
90-Q76F °0- 
S0-0901°0- 
So-OF2v°0- 


4£0-00S6°0- 
_990-G62E°0= 
S0-0001°0- 
$0-GS2e°O- 


20-0095 °0- 
90-07G2°0- 
_ 90-09 26° 0- 
S0-alev°0- 


20-0v792°0- 
90-O12Z1°0- 
90-QvTB8°0- 


90-Arv8By°0- 
so-atet*o- 
so-asvs°0- 


_90-I9ST °O=- 
90-a9E%°0=— 
SO-d8T71°0- 
SO-d60S °0- 


90-060T °0- 
90-069F*0=_ 
SO-deit*o- 
SO-QESS °0- 


20-0099°0- 
90-262 °0- 
_S0-OS01°0- 
s0-096S°0- 


20-9228 °0= 
90-O0f02 °0- 
90-G1v6°0- 


S$0-36£ 


90-a8v2°0- 
90-099S°"0—- 
SO-Q9FE 1° 0- 
S$0-GE92L°0- 
90-GFIZ°0- 
90-d62S° 0- 
SO-OVE T° 0- 
S0-G292°0- 


20-az221°O- 
90-0ITB8¥°0- 
SO-OTE T° O- 
So-af22°0- 


90-Ov21°0- 
90-OvlTv°0- 
$0-092 T° 0— 
Ss0o-a0e2*0- 


20-062 2°0- 
90-A"CL°O- 
SO-G46T 1° 0- 
$o-0282°0- 


20-GE6EL°0— 
90-00%2°0- 
S0-0601°0- 


_G0-OL2%°0- S0-065S°0- SO0-av5L°0— 


80-0608°0- 
20-GIF6°0- 
90-0899°0- 
SO -0S2¢v°0- 


240-0601 °0- 
90-a9TI°0- 
90-0962 °0- 
S0-G29S *0- 


20-aGIT¢¥1°0- 
90-dE%t°0= 
90-GSt?6°0- 
S0-0208°0- 


80-Gu6teO- g0-a89z°0- 80-az9F£°0- 


240-QT2E°0- 


29-068%°0- 


20-OFe 2° 0- 


90-002%°O0- 90-089S °0- 90-GIEL*°0O— 


$0-G6T¥°0- 


S0-019S°0- 


S0-0808°0- 


t*0 


90-0692 °0- 
90-Qv19°0- 
S$0-G0S1°0- 
%0-0B82l°0- 


90-0Rf2S°0- 
SO0-ObHet*o- 
vo-aR2Zzt*o- 


.90-QI6T° 0- 
90-A0FS °0- 
60-a9evTt?o- 
~0-c62T°0- 


90-OIvt°0- 
.90=OF OF 2 0= 
S0-0201°0- 
vO-GIET°O- 


20-02 0f°0- 
JO-GIGE°O— 


v0-O2E£Tt °0- 


20-089497°0- 
90-0282°0- 
S0-a921°0- 


VO-OvET*O— 


20-a0ReT°0- 
90-0221 °0- 
$0-GZ11 °0- 
vO-GSfFt°O0- 


80-aqgerv°o— 
40-008 °0- 
90-00 06°0- 
vO-QZE1°O- 


GS0O-a9f£1°O- 


=039N00ud SYD 4O 


90-AE62°0- 
90-a299°0- 
So-cEeotro- 
v0-000 v°0- 


NOTiI9IVUS 


Sear S See ee Oe SE Or 
90-Ovez*0- 90-9LS2 °0- 


90-0cF9°0- 
S0-G991°0- 
%O-000 &°0- 


SO=-GENe S 0s = 


90-0SUS°0- 
SO-0%91°C=— 
¥0-d0cC v°O- 


90-009T*0- 


90-GL1S°0- 


G0-0091°0- 
%0-000%°0- 


90-a901°0- 
90-NeLv°O- 


vo-d00%°O- 


20-064S°C- 
90-GIEL*0- 
S0-09%1°0- 
v0-d000°0— 


hee 
zo 3S¢6°0 
20 3SE¥°0 
Pere. 
20 3092°0 


LO-OTE? °0— 
90-0Z1Z°0- 
SO-O£E1°0- 
v0-C00v°0— 


80-08S9°0- 
90-C601T°0- 
SO-GItt*o- 
v0-000¥°0- 


_ 20 358 1°O_ 


20 ASET°O 


ee : a Swe 
eati.e a0-00Ge.9- 
AD G24 —0~ Soe Ce4t (Oe e2-08C FOS. 
=e SON s Oe dO GTH I D< Aeot 1s, e+ 


‘S6-dasisa. = sane Deen t= etrscins ‘sgcigsece- aaegreena- a2~00006S- 


ee a yb 
‘a- 
pen eveese- Betas, sty yee FO-DSh oF ore 


2@ 404E08 


ee 


+o ~B KE, = nerd tHe. 78 ; 
Teaheas. fercis ueee: Fo-ugtest— 


a aes t-oei i a-teensee 
ee a J _ Oe 7Tece EMG O Ob pp hate 
phe SATA SO~ne-G es. = 86 OEE. 

: ttre tone TS-O3L 


a) fe QOSi sau 86-28 16.56 a9~a005~0- te~sien be 
OO-CEag co 45602 (7.0- 


SO~GHBS» - grist sem anagtnate weephae ee 


Sir oese co ciate se 


i iad Nosoaues, 7 Tr a 


20-niez “a o-—iaeuks peaubaals t- teat Secaaees ot eeabass hl 
CAB 0 < Fe-Gei ssa FSO-O15) a 2 at <. F~ 40ers. wo-6>-4, 2- 
PCI eo SE te cp 


Benatar nn: Ga Es O— ao- ae ¢ t= ge-r acts 
POE HP: 36 how i.2~44- 


bs 545-200 5.08 $4 -625126- tO-O8 7 950— 20: adh kcal OT AOS F5. 


- z = & 
fa@—. SSaQeRGet = Oey Ub: 0) Se eren-5 


GO J2Le.B 


TRANSIENT RADIAL GAS FLOW 


I16 


SSS 


| 


SLIP CCEFF(B)= 50.000 INFRTEAL COEFF(HB)= 060 PERMEAGILITY(K)= 500.900 MO 
POROSITY= 0.2132 ROCK COMPRESSIBILITY= 0.6000-05 INITIAL PRESSURE= 0.200D 04 
PRESSURE SQUARE DISTRIBUTION 
TIMe DIMENSIONLESS DISTANCE . 
(To) Rw DELTA R1=0.0010 DELTA R2=0.032724 
0.250€ 00 : 
pe ee 0.9985 120000 120000 1.0000 1.0000 1.0000 120000 1.0000 1.0000 1.0000 
120000 1.0000 1.0000 120000 1.0000 1.0000 140000 1.20000 1.0000 120000, 
1.c000 1.9000 120000 1.0000 1.0000 1.0000 1.0000 
0.500E 00 
0.9952. 0.9999 1.0000 1.C000 120000 120090 120000 1.40000 1.0000 1.0000 
1.20000 129000 120900 120000 1.0000 1.0000 1.0000 1.20000 1.0000 120090 
Been soe. 3.0: 0000 2.0000 140900 140000 140900 _1-0000 1.0000 
0.-100F O} ie be i aaa ac ae ; ee bikes = 
209935 0.9994 1.0000 1 20C00 1.0000 129000 140000 1.0000 1.0009 1.0000 
1.0C00 120000 1.0000 1.0000 1.0000 1.00090 1.0090 1.0000 1.0000 1.0000 
1.0009 1.0000 1.0000 120000 1.0000 1.0000 1.0000 
0.150E 01 
eee SII 2 907 Oe SSB EME 09 990) Faie00 C0 ea lis100100 10100007 tie 00100 10000 1.0000 1.0000 
1.0000 169009 10000 1.0000 1.0099 1.00960 1.0000 1.0000 1.0009 + 1-0000 
1.20000 1.0000 1.0000 1.0000 1.20090 1.0000 1.0000 
0.250 01 
069913 0.69579 0.9995 0.9999 1.0000 129000 1.0000 1.0000 1.9000 1.0000 
1.0000 1.0000 120000 1.20000 1.0000 1.0000 120000 120000 1.0000 1.0000 
—__ 1 0900 = 120090 120000 140000 10000 $.0000 140000 Le foie ee ee 
0.350E O1 
0.9506 0.9973 0.9992 0.99538 1.0000 1.0030 140000 1.40000 1.0900 1.0090 
1.0000 1.0000 1.0900 120000 1.0000 1.29000 1.0000 1.20000 1.0000 1.0000 
: 1.0000 1.0000 120000 1.0000 1.0000 e000 1.0000 
0.609E 02 
029394 0.9961 984 0.9994 9998 029999 _2-0000 1.0000 1.0000 1.0000, 
12.0000 1.0v0U0 300. 1e0000 160000 1.0000 1.0000 1.0009 12.0000 4.0000 
1.0000 1.09000 0000 1.20000 120000 120000 1.0000 
0.A50E 01 
0.9888 0.9954 C.SS78 6.9990 0.9996 0469998 0.99949 1.40000 1.0000 1.0000 
1.0009 1.0009 120900 1.20000 1.0000 1.0000 1.20000 1.20000 1.0000 1.0000 
1.0000 1.20000 1.0000 1.20000 120000 1.0000 100 00N mt Bey ea ee 
SOsl3Ses024| Ma ald ae cba (oe oie. Pt mee we ae ae cae ay 
0.9873 0.9944 0.9969 0.9983 0.9991 0.9995 0.9998 0.9999 1.0000 1.0000 
1.0000 1.0000 120000 1.0000 120000 1.0000 1.0000 120000 1.0000 3.0000 
1209000 1.0000 1.20000 1.20000 1.0000 120090 1.20000 
0.18S5E 02 
0.9873 04-9938 0.9963 0.9978 069987 029992 0.9995 0469998 049999 0.9999 
7 $.0000 1.0000 360000 1.0000 £-9000 8.0000 1£.0000 1.0000 4.0000 #£.14.0000 
teooon 1.0000 12-0000 120900 1.0000 129000 2.0000 
0.260E 02 
0.9865 0.9931 0.9957 0.9972 0.9981 0.9988 0.9992 02.9995 0.9997 0.9998 
0.9999 0.9999 120000 120060 1.20000 120000 1.40000 1.20000 120000 1.0000 
1.20000 120000 120000 1.20000 1.0000 120000 140000 3 
0.335€ 02 : i ih) TES Ee ete, ee 
han: “009862. 069926 0.9951 029967 0.9977. 069984 0.9989 029993 0.9995 0.9997 
0.9998 0.9999 0.9999 1.20000 1.0000 1.20000 1.0000 1.0000 1.0000 1.20000 
1.0009 1.0000 1.0000 1.0000 1.0000 120000 1.4000 
0.435E 02 
0.9856 0.9921 0.9546 0.9962 0.9972 029980 049985 049990 0.9993 0.9995 
069997 949998 0+ 9998 099999) 210.9999) Ba N0 CO elie 0 O00 lis 000 OME Nie 0 COCR i000 02 
~~ ¥e0600 120000 14-0000 1.0000 1.0000 120000 1.0000 
0.535E 02 
0.9954 0.9917 0.9542 009958 0269969 069977 0-83 0.9937 0.9990 0.9993 
009495 000 99C6)— 046 999H = 002 999K 00099495 = 0 9979-10000 120000 1.0000 1.0000 
1.0000 1.0090 1.0000 120000 1.0000 1.0000 120090 
0.635€ 02 dee Ke an 5 een eters Sess te aM. Oe Cire eae. 
SST mBonGin CAGES —@RCUED 0.9954 0.9965 069974 029980 0.9935 0.99868 0.9991 
029993 029995 0.9957 069968 049998 0.9999 0.9999 1.6000 1.9000 1.0900 
1.0000 1.0000 1.9000 1.0000 1.20000 129000 1.0000 
0.73S5€ 02 
0.9849 0.9910 0.9936 0.9952 0.9963 ¢.9971 0.9977 049982 0.9986 0.9989 
929922 0.9993 0.9995 0.6997 0.9998 __ 0299998 _ 0.9999 ~ 120000 _3-90000 129000 
— 3456000 10000 12-0000 120000 1.46000 120000 + 1.0000 


So ies 
sou 
HO 
Scous.! 
er ¢ 
6406 j 
19GV «4 
‘ Ses 
Got 
'* 
Ccae, 
a 4 
woe oe 
20 + I 
WH ef 
Ste. 
ie > 
aonreg.c 
o3¢.4 
are? .o 
PTH yt 


Youo.U 


+O)» 
ete ob 
Crewe .t 
' 
oy, 8 
ecan .f 
‘ b 
re J 
‘ ¢ 
¥ ‘ Ps 


~e 


sae a | he 1) 
as cse.oem sia vin ibaowewe 1} Bye ORB? pee 
sO OOO8 a ened mete | éhageod.d +74 gi bub aS oot | 7 


~ as og alge sf 6 - ‘ ee a ar yy ‘” ‘* wu ree av eg - a Ei 
ea a 0 " a * or 
7 Thai oe, a “1 oe 


che sayexs 7 : i 
666941 $006. 1 
it age. 


q 


¥ 


7 ites E OcGnet OD 960 ¥ 7 énebst p hee 
W0¢01 o40c. 4 neeo. i here | 
Mie wipe di SEO ER Os ee 
f ae a ee | votes voee, a ony hens 


doi TD in Ae Pe eee ye 
00 06.66. ard pee pes 
ina Sonw.t ~geae ma. 
toga. am 7 ae tries fe in are 
_ es wed 2 be 


j +4 i’ + 
Secor dk ene eaves veov. Me onae. 4) 
pends i WNOGe 2” > OGY, coe O28 O0 wy 
. mrt) fertel. PONG Lt 


odedad toe ee | te ee ocak? ia 
OOnG.t) ~ HOAB, 0049, 2". hore. a Z 
ess a VODGe C4 atta 


RODE he. a anaes Gorter 8 
freee.’ ema6. s aah, 


QO ei crocs e 


POA S D, beats rr %.¢@ ay é a4 
Oey 4 o46u.7) eed. TF if 


bp. gedit ele oh Be N 


S650; (eee “pee 
0s. 8) -O0osaI a Te 
i ee a] h 
eerryn  Aeeee _eeeeee 
i! Mee “Sateen ae 
3 co 90a By |) 


ee ee Oe ee 


Ages nem 
P2GQa) MOOS. \PSCAy4s \ 
o6-20n4 " 
7 ie cs eke See A ee o 
@600.¢ .. Hone. 7 OHO. ’ other se , yebeee” 
oa pbs bh gibage | 


Teh OND) Bho. bane. 

Ret eee es SY 
re tay b04@a) i udad.’ 
ee ieee.p pean 4 tet ga 
1GO00) .' BOM: OEdAne |) vetoes 
ou ey: HOMO. 4 


howe, & ; nee 6 Barwa 4 ToView ov ; 
oan .4 ever,» yr Pow _ Se, 
CVGR.L. Punges 


PC ee ee ividng coven «wee 


eae.© ; 
OPP OET TGSR4 fl ie pee ey ws Pett ¢ | Eh gs) re an 
Seyoal WPAOe a ‘ ee 4 | S098 .F on abe4 i FOS» ,. “4 wt . 
Pie | ry om dist Bi, 
4 ie Ray) Al yi 
- i ; ‘ ; Fi . Tale 
7 ae ia, j 1 
7 if | 7 ie oa j i } ry A ) 
4 ri ines _ 5 
, a > ANS en he : ia ee 
. P . id y jo » My ; se 7 i 1 A 
i , in uh : 


rf \ : : ' re, Y oT, 
‘ t ‘ 4 ‘ , \ ‘ le cia 
| “ Ne ’ “a ,) _ am E nF 4 
r | " |, 1 ee ala hei 7 , Wie 1 re 


Hig Re 


OV-O0ISGZ*0— O1-1I9LE° O- 
BVO-OSET°O=- HO-OUGI°O= 
L£0-O9VG°0- £0-N69L°9= 
SO-GZ11°G— SO-GS¥vI°0- 


O1-0£96°0- 
80-N162°0— 
90-az01°O- 
so-09Rt* 0O- 


OT-$O2PR°O0— 60-0971°0=— 
80-0920 °0= RU-0229° 0- 
90-dovl*O= 90-0%02°0=— 
SO-Q0%2Z°0= SO-QII£E*°0= 


} 10 30S8°O 
~~ 980 ~~~» 0°O.~=—«dEN-GOSS*°O— 1I-G2SR°O- OI-AQEE1*O— O1-CH02*°0- O1-a%2E*0- O1-0S0G°0—- O1-dRRL*C- 60-UEZI*O- 
60-CI61°0— 60-08672°0— 60-GH9¥°0- 60-OtzZZ°0- B0-AZI1*°O— BO-OQe¥L1°0- 90-G0z2Z2°0- 39-ABI7°0- 80-dS¥9°0- FD-AlCe6°C- 
£0-GZS1°0- L40-GFEZ°0— L0-ASSE*0— L0-GZES*°0- 20-1908°0- GO-GOZI°0- 90-CBLZT*°O- 90-0092°0- 90-azze*0- 90-00"S*0- 
90-GL9L°U= SI-GLOT°0= SO-GLv1°0- SO-UZ0Z°0- SO-ULLZ°0- SO-OEBF*O- SO-AZ2¥S *0- SO-GvIB*0- %0-azZ¥I°0- %0-a006°0- 
10 3009°0 
= OW sO) Peo 0 ka) _0°0 OO OO: ES 0s'0 o°0 0*0 
"090 TI-GZ2S°0= OF-A80T*O— O1-deOzZ*0— OI-GEHF°O- OT-dHIZL°0- 60-O%EI *0- 50-U0S2*0- E0-OF9¥*0- 60-0vSH*0- 
80-A2LS1°0— 890-962°0— AO-A6IS*°0- B80-A¥EG°0— £0-0291°0= 20-O¥6Z*0=- LO-OEIS°0- Z20-GEBH*O- 90-A0SI*0- 90-Gore*0- 
90-OLC¥°0- 96-G1S59°0- SO-aAzZ01°0- SO-aSSI*%0= SO-NzZEzZ°0— SO-GEwF°O- SO-AEIS*°0- SO-OFOH*O- v0-AErI°0- vo-G00v*0- 
10 30Sc°0 
070. 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 o°0 
0°60 0°0 0°0 0°0 UO Ul-dISL°0O- O1-G6e1*O- D1-aR6Z*0- O1-GzZ6S*°0- 60-GAII*0- af 
~60-Q¥E2°0- 60-GE9°O— 60-OSI6°0- RO-GOBT*O— HO-AHSF*O- 80-d269*°0- LO-QvET*O- LO-GHGe*O- 20-dSHv"0- 20-U9E6°0-. 
90-GvLI°G= 90-GHTE*N= 90-GZLS°0- SO-NNOI°O— SO-GIZ1°0- SO-GEBZ*O- GO-GE9%*°0- SO-G0L2°0- vO-AvyHI°d- vO-ad00¥°0- 
10 306z2°0 
0°90 0°0 0*0 0°0 0°90 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°90 2°0 0°0 0°0 0°0 0*0 0°0 
13-G269*°C- O1-GOLT*0— O1-GS!v"0- 6O-ALOT*0— 60-AE%Z*N- GO-AYHS*O- BO-AOvI°0- BI-GIEE*O- BO-ABLL°0- LO-dIHI*0- 
“LO-Q91v°0— LO-GEVL*0— 90-G0IZ*O0— 90-GSS%*°0= 90-dI96*0— SO-G9UT°0- SO-GEBFE*O- S0-09zZ2°0- %0-dE¥Il1*0- %0-d00b*0- 
to 3051°0 
0°90 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 o°0 
0°0 o°0 0°0 0°00 0°90 0°0 0°0 0°0 0°0 0°0 
0°90 0°0 0°O0 [f-AHS6°0— OI-GISZ°0- 01-G869°0= 60-GEL1°0- 69-OEG%*0- B0-G6IT*O- B0-GTIF*O- 
_80-0Z1a°0- 240-021z°0- £0-d6¥S*0- 90-A2¥1°0- 90-OzZ9F°0- 90-O£16°0- SO-GLezZ*0- S0-G6SS*0- %0-GOv1*0- v0-00)¥*0- es, 
“ayes Sey Lae Ogee Pho aie oe ee eee ae | eo To 3001°O 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0*0 
0°90 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°O 0°0 0°O Tl-O2t6°0- OL-aoI£*O- 60-OZI11"°0- 
60-006£°0- B0-d9EI*0— BO-OFLY*O— L0-d¥9T*O- 40-GILS*°0- 90-G66I°0- 90-0969°0- S0-G6¥zZ°0- S0-A¥S6°9- %0-U00b*0- 
00 390S°0 
enero S ON yo te OSG 0°0 0°0 0°O 0°0 0°0 0°0 0°0 0°06 
0°0 0°0 0°0 0°0 0°0 0°90 0°0 0°0 0°0 0°90 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°70 0°0 1t-a208*0- 
O1-QSOL°O— 60-O9T1°0— 60-d6¥%"°0— B0-GSZI°0— 80-06¥9°0- 20-GL2Z°0— 90-AST1 °0- 90-GS0S*°0- S0-d6tzZ°0- v0-d00 ¥*0- 
00 30Sz°o 
SANIOd GINS OF ASHYI4 AHA YUNA NOTANGIUASIA xnI3 
GN 000°00S =(*)ALI TISVINYId 0°O =(90)4343302 I44N3N1 000°0S =(8)333U) dI71S 


GO-ORRTPO= GO—NHL7S 90 = 69-ASIe*O0=— 60-0919" 0- 
BN-OV0b"O— LO-QILT°O— £0-O060l*0- 20-0042 °0- 
9O-GHLE°O— 9O-UGLE°0- 90-0005*0=— 90-U0E9%0— 
SO-OCI¥*°0=- SO-N6SS°0— SO-CRIAR°0— 90-d0Vl °0— 


6O-A1TT6*O0=— 
40-ASB8E£°0= 
90-598 *0= 
vO-d00 v*0- 


<< ue 


<Q 2—dner,2- abmaneee- 
=n PITS fh B= 
rr a) = - 


= 2 a 
ie | ey 
ee : > ave vt 
———<s a 
ae 1 te Fe os oH t= 
a — “eae: Stens <= Ce 
~— me FE . F = se 7 : 
: . <2 : “! 
ees cee og Se eee semiiente 20 -vahi-o~ 
ee ee FEES eR Wirt PSE eee MODIS T Be 
~ = Fee: - 28 - £29 2.34 
a vee } ov >.% _ woe Ses 
BO-att by 0- ect-Oavto. t- jo-zaeice> Ro -6u2146- 20-9eEnas= we adit ek iS Pacer ie,e- Seobesn, o- severity 2-0 3506 —— ‘ _. 
BG/ADiel~ ¢f-uert oe ao4Q0ne eH 2b-tete.o~ ie-oter<s- TH-O4# 5.0 YE-GELZ+G- TH-Ota4ets pee 2 BO*SFRS a ra ? = "2.6 
F BeP gp TORT 2 Ge Cia eto 5) O75 Est <0* 5 1~a6 14 -2- FEA ONE 4 Ee én-nsst. B= € Lp Fe Pt APR a= >. 
; — $30 + ae . ta 5 Le i) Be ee ee 2 er ibe 
z Es ; Pa i a r : ig 7s eo ; a 
: SPE ok (PH 05~00S 1. OF S9-Dtekg de PO ee be PESO ese rn fa -adee.e- Sh046. 24 ASCO RigG 50 “Pore, : ; ob : ; 
8 O-<GRO0 sf TOOLE 4. O~ [N-OREE = TOU debe Fer 0agp.0- 6) tee. beWavs.e- 6¢-n6et.3~< 6-0 SS bbe ec he : = A E : 
4-Ol + | B< ‘Se Rts. e= vi ede. O- B00 Sie be #F-O5i0.0- AS “ERS 5 iS~ My eget > «2 it-Bie. 9 C2-CBri.ce- ce<-cle «.¢ - : a 
a ae $40. staal ty St ER FEE hte Os a9 = FE-PE pits. 22 oet8 Met Perc fase . : 
25-44) j-nb— £2 ~+O042 8% Po-deei.?< © I96G<3~ 2S-O1 if « Fe. £9~045 fe ede BOSUERL aan e a a oy~oC8 +. p= . 
-FerQekt ee tO<1 AT eR Oto i oe st -Besh. 0 ber Gers ~8+_ See t |. §~ £5 ~Sete 4248900 a> of- Nteba= 40-90 = e 
SEEN $20 BOSOMOE Ry NSO DEet~ 26-GNESyS- KPDSEGLO- ceeoer -3~ WRIT). f- Toy 0i, Os Et—agt 25 AGngeee ee 
PEEP Lat Be. O- 64-Si deo om Si-<GEkKaib- Obs he. tg Peele ‘@e- mld ee ee i ee Na satin “at : = 
. —s : . = — 7 : <a — a oe ~ eee ue i a : 


nonf 


I18 


99-0901 °O- 
90-OS2E °0- 
90-CrEL°O- 


90-0251°0-— 
GO-9E£SE°0- 
90-90262°0- 


SO-3S0F °0 
90-A99T*0- GO-OTAI*O= 
90-QERE*O-— 9N-ASI%*°0- 
90-949R°0- 90-06%6*°0-— 


SO-G04T°d-- GO-0S12°0- S0-a9v2*0O- SO-azEz* o- 


90-CZ11°0= 90-dEzZI*O- 


90-0862 °0- 


90-G9TFE*0— 


90-A9£E1*0- 90-a0ST*o-. 


90-OS%E°*O- 


90-GRlE°0= 


90-G00Z"0- 90-US94L°0= 90-GzZFR°0- 90-0116°0- 


SO-OEBT*°O— 


2£0-G2T8°o0- 


S9-Ov te°0— 


20-00 16°0-— 


S0-a9¥”2°0- 


90-G20T*°0- 


90-0F62* 0- 


SC-09%2°0- 


£0-0299°0- 
90-aeEe 2° 0- 


“90-0£tZ*0- 90-9592" 0- 
90-49S9°0— 90-G024°0= 90-aHH2 2 0- 
SO-Ol¥1°0- Sd-OFITZ°0- 
£0-O02US*0- 20-az2S°0- 
90-9281 °O- 90-aII2z°0- 
90-088S°0- 90-0559"0- 


SO-OvbI°0=- 


29-dSS2°0- 
90-abel*0- 
99-0v0S°0— 


SO-O1TZ°0- 


20-OL0€°0- 
99-Govl*O= 
90-0225 °0- 


90-Q0£2°0=— 


SN-U%72°0-— 


40-966F°0- 
90-N2LT°0- 
90-820" O- 


~$0-062 1°G= S6-0202°0- S0-az>2°0- 


20-CIC1*0-— 
40-USE2°0- 
90-G9EE°U= 


_SO-OTLT°0= $0-0002°0— S0-0SE2°0- 


20-0%S2°0- 
40-901£°0- 
90-0Cf4L2°0- 


40-O%21°0= 
40-dtuu°o- 
50-C19*0- 


HO-AOELT*O=— 


40-0£FS1°0- 
90-0901 °0= 
90-0SFS*°0-— 


s0-GAngZz°0- 


90-Av7tT°0= 


‘90-0 0F€ °0- 


90-99L8°0- 
SO-OIRRY°O= 


20-0°&62°0- 
90-0892 °0=- 
90-arlyto— 
S0-azRz°o- 


40-Uv29°0- 
90-66 1 °0=— 
90-arEZ°O- 
$0-a98z*0- 


240-GeHl*Oo- 
90-092T°0=— 
90-0029" 0- 
so- ~deRre*o- 


S0-3F9Z°O 


GSO-We2°9 


SS 


SO-30ART*O 


SO-AGET*O 


STIADT AWEA BATS LSVT LY 039NG0%d SvVo 39 NOILOVuZ 


BO-dKR2Y* O= 


40-O0L5£°0- 2£0-0C09S°0- 


90-0 TEL°0— 


90-066£°0- 


80-0%SS* 0O- 
40-0929°0- 
90-do2% °0— 


SO0-G09T°O- SO-G06T*°0- SO-abzZzZ°0- SO-dYyLz°o- 


60-082 9° 0- 
80-0756 °0- 


60-0649*0- 
249-O0H2T°0— £0-00L1°0— 


60-00°8* 0- 


90-O8VT*°O— 90-0061°0— 90-azyz°0- 
SO-G6ET*°O— SO-D121°0- SO-atiz*o- 


a a eS 


#0 -O61T*0— 
40-0922°0- 
90 -Q90£°0- 
S0-G19z°0- 


FO3DNIGONd SVD JO NOTIDVUS 


ee 


90-GLA1°O- 90-G91Z"0=- 90-AEEZ°0- 90-avGZ°0- 90-0942°0- 90-U662°0- 
90-A0S%°0- 9O-AHO"*O— 90-06ZS°0- 99-ALS*0- 90-Aaee9"0- 90-0529°0- 
SO-GEOT*O- SO-G¥TI°O- SO-axzZI*0- So-deFt*O- So-aeGt*0- 50-0601°%0- 
SO-AEVF°O- GO-dZzZ7°0—- SO-d9¥S*0- SO-GL9zZ°0- vO-GHZI*O- v0-G00v*0- 

SNE Fk 20 3Sc2°0 

90-S9T°0- 90-GIGI*O- 90-G651*0- 90-a6le*0= 90-0002 "0a O0z -dL°2*0- 5 
9O-DETY°O— 9O-AISP*0- 90-N26%°0= 90-OLES*°0- 90-02 36°0- 90-dI1e9*0- 
SO-QtOT*°O- SO-DTII*0- SO-d221°0- SO-aSEI*0- S0-G0SI*0- So-au9ol°0- 
SO-QvVE°O- GO-Gvzr*0- SO-ARYS*O- SO-G1zZ2°0- %0-0621°0- v0-G00*0- 

Z0 3SE9°%0 
90-AR2zT*O- 90-UF¥I*°O- 90-G6GT*0- 90-Azz21°0- 90-0261 0- 90-0612*°0- 
90-G9L°0- 90-A20v°0- 90-Gevy°O- 99-déab*O- A0-quES*O~ O0-GvoG*on 
90-G296°0- GO-OL0T*0- SO-G6I1°0- So-G2FI*0- So-ULeT*O- S0-US91°0- 
SO-ASPE°0- SO-d9Z¥90- SO-A2EG"°0- Sd-aRLL°0- bO-GDET*0- v0O-qo0r*o- 

z0 aSEs*o 
20-0298°0- £0-G0G6°9= 90-GEII*0- 90-0821°0- 90-a9v1*0- 90-a891°0- 
9O-ATOE*O- 90-O2EE*0- 90-aRLE*0- 90-OzZZv*0- 90-dzL 0° O- 90-0225°0- 
90-80H*°0- SO-Q10IT*°0- SO-GELI*0—- SO-az21*O- Go-oLel*0- Sor -GZ91*0= 
SO-AS¥E*O- SO-UHZ%°O- SO-A9SS°0- SO-avBZ2*0=- vO-GIEI*0- %0-G00v"0- 

zo 3Scv¥°o 
40-G10S*O- £0-G06S*0- 20-0£69°0- L£0-GZ21u*0- L0-AKY6*0- 90-GILI*0- 
99-GAR2Z2°O- “0-G29Z2*°0- 9O-d00E*0- 90-az"Ff*0- 90-a0bE*0- 20-Gnev*0- 
90-A6CE*O~ YO-AGEG*O- SO-GYOT*O- SO-aIzZI*O- So- QLE1°C- S0-G9S1"0- 

~$0-OSvE°0- SO-dbz2v* 0- S0-a6SG*0- S0-G16z°0- v0-aF¢ ET*O- %O-a00%°0- 

zo 3SeL£°0 
£0-A0F2°0- LO-CINBE*°O- L0-OF LF °0- 20-U9T%*0- 20-aS0S*0- 20-GU19°0- 
90-0ST*G= 90-AkL1*°0- 90-G012*0- 90-aLe2°0- 99-ACHe*0- 20-GorE*0- 
9O-ALTL°O- 9O-ARZR°O- 90-4556 °0- SO-COIT*0- S0-azzI*o- So-cRUtT*o- 
SO-GEVE*O- GO-GOF¥*0- SO-AF9S*0- S0-G66L°0- v0- -OVE1°0~ 70-G0d020- 

Eta i ae = a> a oe 20 3092°0 
BO-AST£°0- 8O-Ae2Z6*0— 20-QBIT°O- L0-az2S1°0- 20-Gh61*0- £0-0L Zz *0- 
40-AS92°0- £0-GLLE°0= 90-1Z1°0- 90-G0S1°0- 90-U¥GI*0- 90-aSzz*0- 
90-CELS*O- 90-dZ89°0= 90-GI18°0- 30-0196°0- So-avIt*o- So-dsEet*o- 
SO-A6EE°O= SO-GbZ¥*0- SO-0S9S°0- Sd-aZ08°0- %0-G9E1°0- %0-d00e*0- 

4 =! 2 20 3S81°0 

5bT°0= 80-G191*d— BO-OUT2*O- B0-ab6e *O- B0-095E Oe 80-QEES*0- B0-0SIzZ*0- °F 
40-000F*O- £0-GG6F*0- £0-G6H1S°0- 20-0d629°0- 40-GSRB*0- 90-0SI1°0- 
90-AQ98E°O- 90-G¥Eb°0- 90-0L09°0- 90-aL%2°0- 90-0226°0- SO-O£I1°0- 
SO-G82E°0- SO-GZZ¥°0- SO-0S96°0- SO-aEIB°0— %O-aBEI*0- ¥0-G00 v*0- 

20 ASEL*O 


erosts.o SOr0 18£ <B> 


SEORGPIE 20 “TO FOTO ph TO—BO9R KG FOHPETSHOS TERT. ~- TACCETS «De CURGEEled— OSeDG 4. V=-4O-OET We OO—OI LE ee 
> Street 


i FQrlet 1 +o— 
oo-dee?, O- 


| ROP Sree" 


Seeger * .g- 


#0-G4 Ft C= 
#0-cire,o~ 
48-G% #f «d= 
7t-aurr.o- 


24 -OVKi «Ge 
OO <1) P24 — 8 = 
7 ee ae te 


* p94 14.0- 


tie bi .O= 


&>+BET4 et 


G2 NEL sO bistros ap o~ 89-26% En O~ us=aaty > ADs GSsRie- ete swags ef= TOU 


SINT On Om ¥P-SP RS Oe OP —aMuRS BOONE bE Or gas F~ 
56-0080 acti cae ER =GPSRG~ “20-GATK Eo PSO Le a0-anapee~ 


oO-C0CE . O- A0-QPT Oe. BO-GETE-3= 


aenekkio, ae beEee Fa-otbeeae crore 


= Be-topts d= 


oe4et ts. a= 
at-—atte its 
£608 Fy De 
toed f7, 6- 


AO-S L79+9- 
$9 Gide eG - 
SGU FS. O~ 
i Pee 
hz af: 15ae- 
~OAG S +O> 
saeco if. o- 
1na2¢ 


<6- s0=thes 


= eC be, Om O6-GIL PO 45°20R8, o>. eto tes. oem Sai Ge s 
- TO-GE AA _HESDOeE -E- OOO 551 28 5+ ie 1 49> 9O-eeT lh p< 
Yerues}>0- Theat RSome eS + Nisha bleh ; 


2O-OtsGed~ 2 -OorT 4 4r-abetee=, 
e@-ishen. B~ 52~OLET—0~ a ae 
SESE 2 cS AZ~OPR PLO Os OwtLS = 


9o=Q)0k. oe §6-0840.0= & poredae es #e- a9 e~~ eh nocd ’ SAM ae ee bo cede sos iy o= 
a. 2 : 


$4 608E sé S~ ao-oten. a Geax o-- 
BD -9OL 4 1S SO-C8 14. he AG—Ge <o~ 
6O-CNE Ss 0— 8O-4hi PinGm 4E= UIT Er~ 
Si-Ptease- TONSILS TE+ Ot ue. c+ 


LOW e = SS  25-dHeT, C- 
2250341 Be > ~ QT es O~—aib- eh oe, Se 
Si-jewy. Ge etre Olr «v- O9-UanhsS~ 
S~ £%8F¥i tage Sc-346t.o- 


fe-Gbit,e- @oetses..0 = 26-O1Ga1 §< sa-oP +t. ea 
TST «fF - VEO S- 60-07105 b« Sh-G 1614 0- 
“a ait - €£G-eF7et .6=— 96.248 26+ eurus i¢.b- 
fo -~OE £1. e- Haan! .G- eyoumes, 0= Shia s se 
2 ere ae to oo re, O~ Boe Y 
‘ S-alae 7 zet i W-ves!i.o- 
«te o2 ~fi2. 54. S- «Jj s.. e- - tOs?.D~ 
-3e 2h -o~ t ve - ~1ST ¢ 
pe 
= 
« a) 


HEY. O9-OIT te o~ Teo 20-028 age 0: Bo<Reeeso~ wenonia.6=" +3-0nk 1. d= iesbte abs i. 
> 19—_BO-ODOT RHO CHEE -O— 60 ~OHOL 6 P< D~ ROE LS GH-—<TRRO.G~ EO-GTGM. PH 9-74 Te tm @6-OUSE.O- S8-ET te 
tr S32 BRT EOS ALOT 1D UO ta FeO - 10> OEGE STEMI POLSO~ EGMOVEELO~ TO“DET b00+) SO-GERe.S- C0084 poe 


PS-ag e= Mutts <b 9-9 ee Be- SERIE StaARTE HOR ae 


“er~abe:.§- 


ae no -okdn st ot<6bt Fe i 
a0 “ASGe.0* 60-91 Le.o- §0+0160 .6— 25<ta j2.- 


nT eee, 


ae ee 


Se etl ee 2o-serut cet 
a0-Gel~.5- "RS eo 1 Se ee-b1 et oe Beng) xu~ 
MUSES eo ‘he Zeokss< 69=94sc.o- ae 


20~onnas 0 aevoeees t= ae SPWOBLES 6 S— 
20-0161 6 Qe eo EL Po 0 40m Soo ot oo 


So-cter. 20 BEA gO ORES, bebe qeOrust +, 3~ 


ThehGiete~ BOM 6 atm Go Santi 04-005 750 


woke Be Fe-tlacla= 2S-99F Fe S- 40 eek roe 
TOETG fo 0+ Bewae iin O~ BO 056 246-204 27 Ot 0 
19 FSGR, G-_ UF see — P-GP Tea" 4 Saget sO « 
aoe ehelee- “eon i. Qe ead a 


wy ale 
Sh —eeen G- O45 iked.8- go-5 18+ Re SP ehh ea &0°-30Ge.G= i. 
OG-cF1 1) 9% 26-005 1 50~ PSA CEL Ss O- ONSO eal 4eebees 5 .. 
Coir. 6 Spoon .4« 2h- EPS. —- he GEC FGI Ae, G- > 


52 Q- FOeGer: .o- £4-OF715-.8- ef -aeuiat 
OD «BEE «Ge Bee Qa sus * » ‘ eeat. a 
40~-el. 1+ ,¢+ “G4 fe 74 2 : 

#*« -*Otfc,c-—2g Sie - 3 -~Catl és oe 
P a) t e as > aco ~<luda FO-35* Hs 
- _ a benim — 
; at, 4 G4 qso-a shy 2eR4 
o > 58 f ‘he sé — ad 
i = ~ — —_ 


ew 


SF Reef a- Saar ee 


bt DD Qe 5 
£2 ~O e094, Oe; 7 as 
E.ote* h@oG = - 


~ = ed 
*O-Q04e.t- - 
260825 EL ~ 


eto 


et =a 4 e= 
wo-S ree o> 


eo-oens.5~ 
- ~erzal +é- 
99-S44a,5> 
ii 


a> «= 
9 = C28tiv- 
gt Oa o— 


£9 -Qad B= 
¥ 7? = 6 GO - - 


ont s.a- . 
mee ~ —= pt* 2 


WP eee. S> 


= tase = tlie —— mene 


wee 245 SS ti tjae 
> 


dae) 


TRANSIENT RACIAL GAS FLOW 
a 


SLIP COEFF(B)=100.000 INERTIAL CCEFF(BB)= 040 PERMEABILITY(K)= 500.000 mn 


POROSITY= 0.2132 RCCK COMPRESSIBILITY= 026000-05 INITIAL PRESSURE= 0.2000 04 


PRESSURE SQUARE DISTRIGUTION 


TIME DIMENSIONLESS DISTANCE : 
(To) Rw DELTA R1=0-0010 DELTA R2=0.032724 
0-250E 00 
if 0.9985 1.0000 1.0000 1.0000 140000 10000 160000 140000 340000 _1.0000 
1.0000 160000 160000 1-000 120000 1.0000 140000 1.20000 1.0000 1.0009° 
1.0000 1.0000 1420000 1.20000 1.0000 1.0000 1.20000 


Ce50CE 00 
069952 0.9999 120000 140000 12.0000 140000 1240000 1460000 140909 1.40000 
1.0000 4120000 120900 140000 140000 140000 140000 140000 120000 140000 
—__._____1-0000 1.9000 1.0000 140000 140009 14-0000 1.0000 a ee 2 Ce eee 
0.100€ 02 ake 
029935 0.9944 140000 140600 1.0000 1460000 140000 140000 140000 1.40000 
1.0000 120000 160300 146C000 140000 140000 1.0000 140000 440000 1200900 
160000 140000 - 1.0000 1460000 1.0000 1.0000 1.0000 
0.150E 01 
0+9925 __069SH8__ 069999 1.0000 1.0000 140000 _ 1.0000 ___1.0000 


220000 1.0000 


220000 120000 120000 120000 120000 1.0000 1.0000 120000 1.0000 1.0000 
2.0000 1.0000 1.0000 140000 1.0000 120000 1.40000 
0.250E 01 
0.9914 (0.9679 0.9995 0.9999 1.0000 1.0000 12.0000 1.0000 12.0000 1.0000 
1.0000 1.0000 1.0000 1.00C0 1.40000 1.0000 1.0000 1.0000 1.0000 120000 
eee 1 00 00r = Bc OOOO Els C000 BE ie0000 BW ic0000F Fie O000 Fe 0000 5 2S.cocee Sly Se ee 
0.350£ Ot 
0.9907 0695673 0.9992 0.9968 1.0000 1.0000 160900 120000 1.20000 1.0000 
1.0000 1.0000 1.0000 1.20000 1.40000 1.0000 140000 140000 120000 1.20000 
1.0000 1.0900 129000 140000 1.40000 120000 120000 
0.600F 61 
0-9895 069902 0.9984 0299954 009998 049999 240000 1460000 240000 160000 
1.20000 1.0000 1.0000 120000 220000 1.0000 140000 1.40000 1.0000 120000 
1.0000 120000 1.0000 1.0000 1.40000 1.0000 1.40000 
0.850E 01 


0.9889 0.9954 0269978 0.9960 045995 04-9998 029999 14.0000 1.20000 1.0000 

120000 120000 120000 126000 1.40000 1.0000 1.0000 1.0000 3.0000 320060 

1.0060 12420000 1060000 120000 _1-0000 Sis 000 Oneal O00 Om amen a een en eile Lad 
00135E 02 ae st . 

069879 069485 6.9969 Ue99E3 0299%1 0469995 0469998 069999 0.9999 1.0009 

1.0000 1.0000 120000 120900 1420000 1.0000 1.0000 140000 3.0400 120000 

1.0000 1.0000 1.0000 14.0000 1.0000 1.0000 1.0000 


Oo1e5E 02 
0.9874 0.9938 €.S963 C.9978 0.99P6 049992 0694995 069997 069999 049999 
a 1.0000 1.0000 1.0000 120000 1.0000 °+#421.0000 1.0000 1.0000 1.0000 120000 
1.0000 1.0000 1.0000 1.00CO0 1.0000 1.0000 1.0000 
0.260E 02 
0.9867 029932 0.9587 0.9972 ™.998. 09988 0.9992 0.9965 0.9997 0.9998 


0.9999 029999 160009 1400093 140000 i20000 140090 140008 140000 140000 
120000 140000 140000 140009 1420000 140000 140000 
Eons SE Ceue a ae O zs 


0.9864 0.9927  €eSS52 0.9967 009977 0065984 0469989 029993 0.9995 0.9997 
0.9998 0.9999 0.9999 1420000 1-4-0000 1.0000. 140000 1.0000 1.0000 1.0000 
1.0000 12-0000 120000 1.0000 10000 120000 1.40000 


lg 0.9558 0.9921 0.9547 009962. 069972. 069989) = 006 98H 02 9990 0299930069995 

06 992960699985 089996) B06 9999 8029999 1.9000 _!-0000 11-0000 160000 140990 _ 
~~ 120000 1.0000 120000 1.0000 1.0000 1.00v0 1.0000 

ac # 0.9ES6 009917 00. 9543 = 00 995H = 004 996902 9NTT =O GNB2 009987 =—« 00 9999 049993 
029995 009996 009997 = 00 9GSB «029999049999 120000 =. 0000 1.0000 1.0000 
1.0000 1.0000 1.0000 1.400C0 120000 120000 1.20000 

ee eaee 019910 0.6939 009955 0.9906 049974 049980 0.9984 0.9988 0 9991 
069993 029995 = 000 9996-000 9GS7 002 999% = 00 9999 U2 9999 1.0000 1.0000 1.0009 
120C00 1.0000 1.0000 1.0000 1.0000 129069 1.0000 

0.735E 02 


009851 009912) 00 9636. 04 99EZ—s_ O06 GYHB-— 0 DTE =— 0 G77 —- O02 G92 -0699HH =: 9.989 
069992 029994 0.9995 0699567 __0+9998 00-9998 _0-9999___ 140000 140900 _ 1+ 0009_ 


1e0000 100000 1.0000 


120000 1.0000 


e woek.g wanda gem aE TeMY  de—deeese ii ahshataceb ie 


(PRO. F 
qoere 
‘ 
HS5de# 
Ooo ve 
PBens ¥ 
6G. 
fn w+ 


gua 360 M jw 


« 


wihiwhy ialisian ~ 


3 aeee, i 
ves Fe a 


anew 


Cee as 


OP oT? 
souR st 


YS. bs 


Coddy | 


PPTE rt, Oe 


Vor, 
i 


' 7). s 
wetal a > 


reeo'.o 
eyeds 


aa Pe 


GPA0ss 


one 


whow gt 


Lee .o 
we ye 


ever’, & 


" ROMGA LR: 


— 
ore. @ 


Pon, st 


jf'~.G 
a ahd ES 


DOK, || 


1 
HoSrs ¢ 


- 


Guo. 


veve.6 
Corrs. 


ee a} 
at) i 
O7ge wi 


\ve.@ 


eae | 


Pehy b 


_ eueole 


OF 4% 


avery. 


#0 ,.2 
oe | 


2°60 


iene,’ 


soey,¢ 


PON t 


mn on 
a 
+Ouy ea a rasta 
os a a ee + ea ee ae nn = el Be as 


> HeG0~ i *OG, { s0ee.1' lar 
2908s 4 BOOP es owas dt 5 99, rou Saaae 


weds >" Heed rh REPO GHD 
Reine weet ead irr SS sete 
9 DU8O eg. 20eb ey seb f fered PASE rd. tse 


a WR fF 


tara 7 


SHG.) obey 


ee teopee oF ames 


en hae TT” ae ' oe ae 

sodpus ober t, ne OFe sa 
COPS ah = COFRes aS Meret fom) GRR T 
6000.8 ‘OT ,e Rett. o] F+i9” 4 
_PPO0T  9eses ty tures hee} a 
wih. T Re rome  OHhe i 


he, Fe UNM 


ane akin pay edtee teem . 


Ore ae 
i i at gi 


gtr. t - opens?’ | ones mete s 
9008.7 Paes: 09008 1) - 


ONOGes WNOO eT” COUP he CbORee + ar 


Te roe Tt ey beth 
al’ 


ovine.) | ogwact ~ ghogwd | waaeeN “WotR. iy) adeuue 
lr ee POGOe. 4 e008. fF HOO Res” ouaets we 
ford, ff 960Ge4 Steeys i MORes wi: ~' i 


CHO, 8  GOhHes  KUOBet- Beotrae’ |» J od ean 0080. 

i. ms Teh REMnd BO mb vee ied 
"340.8 Moe. f, vr are ane 
ond) DeROLY  OomDeE | arr | fast fom 


outwit: 9000! Mette epee Renee eter. eaeere | 
ie) OO Pet” Mei HOA! Rete. e \wRe. re 7 
APG el CON f GHG, L MOEEReD « Gadhad - HONORS 

é vo ’ ay rn 4 Jer: 


OHO, + 


eo a pei eine tase” 

indians F wont } 

O0 849. aS ave i 
rt. . a 

abe j Japa. . 

wor) Nag Dima 


na i ri : 

ae ee Rete ,s || €¢ Tono.d 
eno.) swadey, | ‘ ipa arabe fd ween 

fOr PPR | oe 


«a? ceee a : "i 
MOTO: OUOES: eee 
es le ooass , 
a aren “Sane.” 
| LOTR aD 
Shbeen  HbNGAy adders . oe 


ete are yeeese ; 
i a aha a et 


a 
wee ey, VtO\ed antes =f 
Onde) |) ehup ce — Peewee it 
09GB. 4 AUK 1 ROdbs ad - 


oocaler “aT epie > rie ) 
Greg ea TPE 6K rr .¢ 
vas.) civ St Pitas | 


ira, 6 re-yo™ 
is ee 


ho 
® 


I20 


OI-CZOE*0— O1-G9S¥°b= O1-G0L9°G= 01-9266°0— 60-OBVI*O— 60-d0ZzZ°0- 60-AS2E°0- 69-Alav*0- 60-9602°0- 80-000 T"0- 
FO-QEST*°O— GO-NGSZ°O— BO-GHZE°O— BO-dHLH°0— HO-AEG9*20- 20-U00I"0= Z20-dbel*0- 20-0402°0- £9-9S6C°0=— 40-ABt v°0— 
£0-G6US°0— L0-O¥ZB"0— GO-AKTI°0=— 90-CIRGE°N= 9O-AGIZ*°0— 90-AlEZ"0—- 90-AI6E*°0- 90-0G1IS* 0- 90-GZL9°0= YO-OERB*0—- 
SO-ASTI°0— SO-NBYI°O- GO-GOHT°O— SO-Gxvz2°0= GO-ASIE°0- SO-dvIv°0- S0-a%9S*0- So-aezg"0- VO-GlTvl°O=- v0-d0) v°0- 


TO 30S8°0 
“080 tt-ds2v°O= T1=0599%0— O1-GEOI*0- OI-G09T*O- O1-aneZ-O- OI-GbHe*O- 01-0966" O- O1-de26° b= COndEvI OL - 
60-0222 °C— 60-A%YE*0- 60-A2ES*0- 60-N¥ZB°0- B0-OLZ2T°0- B0-AL6H1°0- BO-GFOE*0- 89-029v°0- B0-G9TZ°0- Z20-GOTT°0- 
20-AL9T°0— L£0-G¥S2Z°0- 2£0-GSBE°O- 20-A8LS°0- £0-G%9N°0- 90-GEZ21°0- 90-aRBT*0- 90-aeZ2Z°0- 90-Gr6E*0- 90-a196°°O- 
9O0-G682°0— SO-QOIT*°O0=— SO-dISI"°0- SO-0902"0- SO-AiHZ*°0- SO-GARBFeO- SO-08%S*0- SO-GI1Z8°0- w0-GEvI°O- v0-Jd0O0v°0- 
10 3009°0 
0°0 0°90 o°0 OF ORE arenes Ore 0 ban tO. OF ana OO pe OO, ee 0 OC See OO ee ee 
~—""“"0°0  TI-GZ02°O= Of-AZET°O- Of-d9vz2°0- 01-0660*O- O1-aL5H*0~ 60-G8S1°0- $0-d262*0~ 60-dLES*0- 60-OER6*0- 
8O-G6z1°0- GO-Gv2e*0- BO-GF3S*0- 20-G¥OT*O— 20-AyBI°O- 20-d2zF°0- £0-02SS°0- 20-aIS6*0- 90-0091°0- 90-a¥9z2°0- 
90-ABZY¥*°0- 90-ABL9°0- SO-ASG01*0~ SO-d6SI °0- SO-a9FzZ°0- SO-aAyE*O=- SO-GEIS*O- SO-GIIR*0O- v0-deyl°0- v0-000*°0- 
10 30SE°0 
00 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
o*0 0°0 0°70 O°O0 BI-O6S¥*°0— TI-GL06°0- 01-0621°0- OT-O%SE*°0- 01-0869°0- 60-GHEI*O- 
~60-O14£2°0- 60-GEES*0= B0-G%0I*0- BO-Av0zZ°0- B0-GL6E°0- HO-G0LzZ°0- Z2O0-GBb1*0- ZO-0LRZ*0= 20-04 £S°O= 90-GI0T°O-.—~- 
90-G98T°0- 9O-GLEE*0= 90-G66S*°0—- SO-U%01°0= SO-0921°0- SO0-068Z*°0- S0-G0L%°0- S0-G6L2°0- %0-G9bI*°0- v0-d00r*0- 
10 30S2°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°90 0°90 0°0 o°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 
TI-Ov98°O- O1-AvOZ*O- OT -Az6v°0- 60-GeI1*°0- 60-GzZ8z2°0- 60-GILY*°0- B0-G6S1*0- B0-GZLF*°0- 80-UuS98*0- 40-GEst*0- 
~£0=-GES%°0= 90-GIGI*0= 90-dFez°0- 90-GOAne*0- S0-G00I*0- G0-0202*°0= SO-az6F *0= SO-O9EL°0- %O-ddvl*o- %0-d005*0- 
to 30S1°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°90 o°0 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°90 0°0 0°0 0°0 0°09 
0°0 0°O = 31-GO%%"O- OT-AYIT*°O— O1-0S6Z°0- O1-0S92L°0- 60-0661 °0- 69-ASIS*0- B0-G¥E1°0- B0-aovFE*O- 
_830-0S68°0- £0-GIEZ*0~ 20-0265°0- 90-GIST*0- 90-aiRE°0- 9O=G2S6°0- SO-A¥FZ°0= SI-AILG*0- vO-Az¥I°0- ¥O-Gdd%*0- ae 
to 3001°O 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°90 0°0 0°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°90 0°0 
0°0 0°0 0°0 0°0 0°0 0°90 0°0 O1-GL01°0- OI-GI4E°0- 60-Gazi*o- 
60-00¥¥"0- BI-GIST°O- B0-GOzZS*0- £0-aBLT°0- 20-GzZI9°0=- 90-GOIZ*0- 90-a9z22°0- S0-G9SzZ*°0- S0-dI1ZL6°0- %0-GOOv*0- 
SARE 7h aE et 00 300S°0 
>. 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0. 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°09 0°0 °o°0 
0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 0°0 I1t-Gvzero- 
OT“O9VE°0— 60-OTET*°O— 6GO-AL6%°0- B0-GIEI°0= BO-GEvL°0- 40-GS6Z*0- 90-ATzI°0- 90-GEzZ2S*0- So-avsz*0- v0-Go0¥*0- 
: 00 30Sz2°o 
a eee eee eee 


SINIOd GIYUD OF ASdIH 3H1 YOS NOTANGIYISIG xnIZ4 


Ow 000°00S =(HJALINVIGVaNU Aad 0°O =(86)43303 WWIiUSNI 000°0012=(G)34309 d11S 


a —— . a gatensos 3 = 


Finne on oe pans Bere prrmeenes 


‘ 
a ad 


esd 


= PO-BtE Lote sane s0-3801, > ferseor ais eats deere 


= 9x0 0 ee a. - a8 = 
: — el x me oo8 
wie ; ; 80 wOeue 
pines #~Gint.e- an-aesg.e~ “roar ete Porth tane= - a8-poss.c- Gesenks whe Ga-ndedce- eb-0tte.0- SpSeae, 42 
Ore Or eee ‘eh 1 ee ara CPsStet ei HI-StCh. Gr eg-st 1 «t 
ma 0 a ad y-. Pet tt -- s6 2s ee. = 
ae ee 2 ee oo hs ‘OF .. 


a ga eea eae eae ae iste ree yt 
ct. er FeO HEPA eheO~ -OI 42 pt oi -aephao arcoraTse= 
By 2 he = Be. oe. : ae 
% dl 2 = eet -] RC. > 


1 


o>. se tobe og a gg ee 


os a — Se,0> POWGKiisOr F4n0Sts .6- aed 
[>on mt he = xv e.8 cn hg 5 ed @+t- ae J) 
“ ——e Bed %S-- “psd 2 ed. cs 2.8 a 
au — == Se-9SRs.o~ Sh-OC te. > ab-—ceyt.e= Snape te Fo SOM } +e ions. s- SF eee * 
= POADITS (O— CO~ SELES. BOGS. S- MGR Ta AO~ GIVE Oe ROGET THRs THORS fe O— a haba GN- CIP 1.2 
S > a a? a $28 Ti -guee ee Totedsb= © Ie Ob eteel. I>, $a, 95 o6~Gst her. 
ee ee i De #<2 3. > 200 See <= Bef fa - ee = ea o.a=: 


i : a 

; @ ae é : : ‘cs See 

= aye ka y- Si eee ie o-c2es 50 ‘2odivr? b= BO onda eae C2604 a «8- b6-db inle~ beatin davaee tse oC -960 Fev 
ao- fot to e- ore -o- hO+Sthe.0~ ae TO- 008). G- TheQeat = to-8t4e. G- F0<glee.d- Se-uoer.a- #8 -uedn.d- 

- pre S60 ihe eto. Cr— BRA Be 8 O1-ooFs a ae nl PES ET ATE SOA t, C= Sem ete es G+ VEU 6-8 


et = . 5.0 a+ ; = ee O-9 °o« inane ee = 
5 . 2 : ‘me 1S "008 hy. : ¥ .; 
SP-CRStT.0- BF ~otr ~~ BB -t dG. Se e-diés.e~ andept dee we-ensece: ac caege. 6 PEL Te See eer ee > - a + -s 
CO-€t41.0— Te—heet.e- CP-e8fSE.G- Te-cete.u~ Te-hede,c- 90-Desl.6- e0=-ned1.0- ed-Getl.0- e¢-nathed= GF-ul oe. c-- 3 > = 
SOABZInC— S0—esL 0+ 92 ECEE. 9 -. Ch eGR, Se SO-GTSEI LO BRUTE 1D SOUT et 09-08 04.2~ 89- 04.8 23~- TO<904 7 0- ' : _ ines 
- > Beh NAO hei ft PO O~ Sie Se pl b— oF Gnas -o~ OF RES Sp. SISTA Se ASS + OB SO eae a 
% ab ‘ ae 29 “Sees -- 5 
£O-OR4 d eB ~ 20-0081. 9— 0 <del b- CO-db sti Be OSes Ic Ye £9 -Ge es. Oe $6 -eaeae< 26-Gemi.t £6-21'1.¢> +5~G0} AuQe . : " ” 
CO SENS GT G09 S52 6— HOFF Oe Cee lee~ Swe (eG 20-08Eb-P- BOO Eeee 8-GE le: 25-0604, 8-20 +G as - 7 
PSAGTRL <De Bade Se. Be OH th O- OO -GaTSIO~ BOgEReeG- Th-cnel.te Boga -g=— 18-0705 10- fu ote. 0+ ThAgS ise Re 
BIM-GERT ee SIGH Re P= DEM SETS ABH O1--OTSS. Oe BOS UheT .O= Of -CHS ED TORO, Oe O)-Oiet. 20 SES T en ERee ives _ - 
‘ a 7 - SS =s 6 ape ae Te Se | 
_— 
4 2 


T2k 


90-OSe1 °G- 
90-ACEE°O- 
90-NEV~L ° O- 
GO-dt6l*G- 


99-ALI1T °0- 
90 -C962°C- 
90-0012 °0- 
SO-d0G1°0- 


€0=0SS0"°'U— 


90-GIs/e2*C= 


90-035993°C=— 
SO-G6RI1°0- 


29-GSES *O- 
90-Gr7e1°C- 
90-0665 °O=- 
$0-0981 °0- 


£0-0S22 °0- 
90-0SET°0- 
90-99 1S°C=- 
SO-C191*°0- 


20-DTtT*°O0- 
20-90462°0- 
90-060%°0— 


SO-Ovz1*0- 


80-0982" 0- 
40-G6E£E°0- 
99-dv22°0- 
S0-9291 °0- 


“60-06¥3°0- | 


20-0901 °0O- 
90-99ST °0- 
SO0-0¢d¢13°0- 


99-ARGT°O- 
90-aT9E°0— 
90-0409 °0- 
S0-991T2°0- 


yo-Ueee? C= 
90-924 °0— 
SO-d9 12°O0= 


240-0256 °0—- 
9U-0L22°0- 
40-U2e2L°0- 
S0-US 12°0- 


Oi CHS T= Om 
90-0612°0—- 


S$0-IS50£°0O 


90-N2LT°0- 
90-0l1h£°0- 
90-OhL9°0- 
S0-G8%2*° O- 


90-avSE*0- 
90-GFEPO= 
SO-06%2°0— 


90-C201°0- 
90-0240F 2° 0- 
40 -1908°0- 
SG-6"zZ°0=- 


20-0102°0- 
90-9922 0— 


90-adet*o- 
90-0 v27°0— 
90-d9S6 *0— 
S0-1682° 0- 


90-A98E*0- 
90-dHe2H*0— 
$0-G062 °0— 


99-9611 °0= 
90-96fE°0=— 
90-G888°0— 
S0-0062 °0=- 


20-d108°0— 
90-92 2°0=— 


90-G299°0- 90-GfvL°0- 90-0228" 0- « 


SO-d£T2Z°0— 


SO0-09"2°0- 


£0-9062 °0= 


10-09¢E£*0- 20-AS8F°0- 
pocnysie es 90-0081°0- 90-090z2°0- 
Y0-CS8S°0- 90-A199°0- 90-aze2°0- 
so- Weacsec = eee Ovvz*o- So-anaz*o— 


£0-9S%°0- 


LO = CINE O = 
20-O"”f6°0- 
90-Gvd7°O- 


£0-9491°O- 
9U-OITI°0=— 
90-G64%S°0- 


£0-99024°O 
9C-JEET*O= 
90-asea°*0— 


SO-OEI2°O- SO-dEF7Z*°0- SO-AStZ*°0=- 


80-d0LF°O= 
40-0lcv"°0— 
90-OCVE* 0O- 
SO-Of61°0— 


60-OFeL°0= 
£0-0UtT*o- 
90-060 1° 0= 
S0-Av21°0- 


RO-O8L 7° O- 
40-09¢6*0- 
90-dzI¥°0- 
S0-a0L2°0- 
80-0001 *0— 
40-0981°0- 
90-a¢Sz°0- 
S0-Gv1z* O- 


#0-0919°0= 
20-0129°0- 
90-OvH¥*0- 
S0-aKs2z°0- 
8 0-OSET*0- 
20-09vz2°0- 
90-d6le °o- 
S$0-Gv9z2*0- 


SO0-14 92°0 


STVAAZT SJWIs 


90-aroc*0- 
90-06Sv*°0- 
SO-ar0lt*o- 
SO-AGE°O— 


90-A22%°0- 
S0-9201T° 0- 
S0-Q90Ef °O0= 


90-OEF T° O- 


S0-de2e%0- 


90-Q0R6*°0- 
S0-ALnF°0- 


20-0016°0- 
90-GOIF °0- 


90-G2z26°0- 
SO-asbtE °O- 


20-0¥V£S°0— 
90-OLE2°0- 
90-O veil? O— 


SO0NKaCCE"O 


90-Glee*0- 
90-926%7°0- 
SO-OvTL°O- 
S0-9S2¥°0- 


90-d09%"0- 
SO-G¢eTt*0- 
S0-azev°o- 


90-ORb1°O= 
90-O07¢71%7°0- 
S0-9801°0- 
S0-Ueoer*0- 


90-O0v0T*° 0- 
90-04 0E°0- 
S0-GE0T*0- 
GSO-A1F ene 


20-9229" 0- 
90-GI22°0- 
YO=OV C10 = 


G0-Ohve*0-— S0-Gerr?o- 


20-9602 °O0- 
90-adst*o- 
90-902f2°0- 
SO-AVvE 2 O- 


RO-Of62°0- 
20-O0S¥8°0- 
90-06RS°0- 
S0-O2%7€ °0- 


2£9-GF0f ° N= 
90-G9uT°O- 
90-90% 98 °0- 
SO-O£EvPO- 


2£0-G20T °0- 
90-0901 °0- 
90-0669*%90- 
S0-d2Ev* 0O- 


60-Ae8T°O- 
20-Ov2E*°0- 
90-al0v°0- 
SO-G¢c£E*O- 


80-06 v2*°0- 
20-G920°0- 
90-0006 °0= 
S0-0920°0- 


GO-3201°O 


96-002 *0- 
90-98FS6 °O- 
$0-aGZIt*o- 
$0-96%9S°0- 


SO-JjoOrT°O 


90-a192°0- 
99-O0£39S°0- 
so-aaerleo- 
SO=-—ac22°0— 


BAT ASvT iv O39N003a° sv9 do NOLLIVUS 


90-Of£ REPO 


90-2df9°0— 


GSO-GEGT*O- 
vO-U6C1°9- 


9O-GLZ0E°0=— 
90-0539°0- 
SsoO-Gud1°O- 
70-000 ?° C= 


=O3IDNDONd SYD JO NOTADVHS 


90-0206 °0- 90-az¥5°0- 90-uzeS*o- aG-nIS9"0- 
SO-GEZI*°0- GO-A9EI"0- SO-CISI*0- S0-U691°0- 
GO-026S°0- S0-a922°0- %0-GOET*O- HO-aNde°0- 

ZO 3S£9°0 
90-0S91*0- 90-Gv¥I*0- 90-a%02*0- 90-aSzzZ°0- 
“90-ASh *0- 20-G66e°0- 90-aUSS*0- 90-aS09*0- 
SO-N0Z1°0- SO-GEL1°0- Su-deHl*o- So-az9l*o- 
G0-095S°0- GO-GEAL*0= vO-GIFI*0- %0-a00%°0- 

zo 3ases°o 
90-GBIT°0- 90-GeF1*0= 90-GzSI*0- 90-Gez1°0- 
90-GHBE*O- 90-OEEb*O- 90-dety*0- 90-GHES*O-— 

SO-ASIT*O- SO-G6zt°n- SO-0Se1°0- SO-aFral*o- 
GO-N66S°0=— SO-dGRL°0— eN-O2F1*O- erO-“Va0rto- 

zo 3SEv°0 
20-95F2°0- 2£0-G8S58°0- 90-Go0l*O- %0-aa1lt°0- 
90-O01E*°0- 90-AFESE*0- 90-A10¥*0- 90-a9S0°0- 
GO-RD1°O- SO-GzeT*0- SO-G6E1"0- Go-aNST*O- 
S0-1£9S*0- S0-0962°0- vO-dEEI*O- ¥0-900e°0- 

z0 3SfEe*o 
20-A69F°O= £0-GLhb20- L0-GNbS*0- 40-c0G0°0- 
9)-d61Z*0- 90-92S62°0- 90-GIOE*0- 90-d1SE*0- 
90-9£26°0= SO-OZI11°0- S9-Q6z2T°0- S0-GorI*0- 
S0-029S*°0- SO-GvOR*O- vO-GSF1%0- ¥I-Go0r*0- _ ae ae 

- 7 zo 209z2°0 
LO-QOEL°O= 20-G99L°O- L£0-A1T2°0- 20-dF97°0- 
90-1821 °0- Y0-GLST*°0- Y¥0-AzL1°0- 90-I”Ez°0- 
90-0628°0- 90-N0RL*0- SO-a9IT*0- So-azEr*o- 
S0-069S*0- SO-OZIH*°0- vO-GLZEI°O- v0-d00v°0- 

zo 3Sa1°0 
RO-GOFE*O- a0-Azh%*0- v0-a26S°0- B0-G16L°O- 
20-02SS°0- £0-0922°0=- 2£0-G1v5*°0- 90-aIz1°0- 
90-0129°0- 90-0492°0- 90-OvvO*0- SO-G9I1*0- 

S0-069S °0- SO-U6I9°0= vO-GbEI1*°0- v0-a00¥v"°0- 
: zo 3SEeteo 


_— + h Sai n—sn — = raXssOs OOO 


ae 


= 50-0 tae anngth tees ee-bednve= 


= ? - : 
aS es or ee : 
= ne, ae rots PO URN 2e-Ga kt pO>. @-OTE be G- - y om 
Be oe = aS 2d. fe BS-O5 0g OS DOES OS a = a 
= ; Hemant co Seba Konte ri <0 SQ-7 t3 <e~ S0-36%.8> ‘3 
Pe res ae 
Se 7 ° ie Se a i Lome 
ae ae 2-0 sn ted~~ a 
a a + eel 7 “= ls 
—— = ms cence = 
Peas ee 
ea aed tae 
= 7 
Mu 73 Seoani .0— 2o~ccie.6= fe ey a sien, 20 dona 


— {GOGO OF pO MOTT Be OS SO-CES1 Pe BO-OT4E-O~ @ : 
+34 > _ 1 8 O-08t 2 ~ Kx! E505 <C~ TO ~dT BO 26 GEIS of So or ates. t- & ao i. ‘\p Sie £ 
_ Rpedzge at- t-5a hed Seneenaet eetise, 3° SON PEec— e988» hate “3 a ee r. 2 ee Seed -4P- 
Wy Ne ee: ib Meee os See 


4 be 3 ne 7 
< Fa+ceus.0-- 20-< — M-Otet oS. et -OOGE 1S ~ ge ukat oe “Re<8tee0- Perl Ae a. aseQAé Lane WO -QSIAL GH. _ . a a 
#0 CARNAL COMPS ETS ST —esh, LH 495P 0S ee $02 Beseet = ge=ewt .e- #6-CO94.0>- Lire 2-0 ase 8 CV Pt be ; a ' — 
. PODER A= Eo CRY - IO-GABL ede OnE eVe= wb-d ete O-_ as eh fay wEsGeeea 8a SEMIOY Ay Bera OF CH able 40h gas ° : . =; 
= eh ik ee St - OO+SNER CS 269o61t .g~ ee SEEL. i~" oo-Whiti.er een eAt = Sor oNs ico a2 -2008..A= $e-g238.u~ : . c a 
—s > a a —> : = om hrs, 8 ~ See i 
weegarr.c- doles rave C6- ekeR- £C-008S.E- Beet g6= PP -atte .e- ep- dbeerBr 2H- ors oe oe] aitaty ioe 7d 0534.6- - 
BOSE e~ AQ te 5 - AOE ad te PE OEE eh PREVI Un 0 Ood6 1t Ge GU-OL Ete Co-Gaf tod ee -OIE e Sees — “3 
G6 Seri at PEALE SO —S ee OIL Om 34 Pw» Uhr an PhO 29-T6E We OE ONS ub FSGS. Or O2-OT RES W4 al -{rrsyo- > oe : : 
APEC eb mets 6 ~ S98 a's ~ oO RT Oe A B18 8S AOS 6B tetas 8 Bhs) ~ ge t-OT te SOE SO ae 4 
; — : : at ~ Se ad - ec 7 i. sd \ a 
TO—litgew= 26-14 t- 9 eds Seeks O~ - Oni Py O~ EL 0 TES. 8+ PNA ak COMER Ant oft eeds sO theo 
BQ-YyPeleh-~ aPeoisa.p~ #066 d.d- BO -Dediiys— POahee(.5- 60+he 4? 4 t- CPOE Stse oS he G- Oe eee IE A ORES. | tm - 
QOMGEELTD- 28-0140.2.9- ORME tos Brassed gO-aeyesO- aF-f1Ge.44 ‘aO<Ghi Ue > 22-1 a+ .0- ap-amy an oh-Setare- 
SO<k2 bi yO sete i .-- eB wt! 29 Sie teS— OU THEOL  B— Se-91t.4= So Gnek of 20 816+, Or. dl SEeie te GSO tse 7 
: ‘ F 
- sae — ae ie — - —<s ; : ——— = erie er ee 
€Pave lf Ser DVT Tee t-te Sa aes BAR AD wel i res 
“ ; = ¥ ‘ ie z) a : = : 5 4 
Pt -et 26 €t-= 4-8 Lo ot ee es re Gar tHe rics MM - Zed > yrs dans 
=, : a — 
4 


TRANSIENT BADIAL GAS FLOW 


E22 


SLIP COEPF(B)= 0.0 INERTIAL COEFF (BB)= 0.100D 09 PERMEABILITY (K)= 500.000 HD 
POROSITY= 0.132 ROCK COMPRESSIBILITY= 0.0 INITIAL PRESSURE= 0.200D 04 
PRESSURE SQUARE CISTRIBUTION 
TIME DIMENSIONLESS DISTANCE 
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APPENDIX J 


COMPUTER RESULTS FOR THE CONSTANT TERMINAL PRESSURE CASE 


CASE iV 


The solutions obtained at the optimum grid size 
are also presented in two parts. Solutions for a per- 
meability value of 500.0 millidarcies are given in 
Section J.1 and those corresponding to a permeability 
of. 20.0 miulblidarcies, in. Section; Js2. 

The same considerations stated for Case I were 
applicable for Case IV. Copies of the computer programs 
for Case III and Case IV are given in Appendix kK, 


Sections K.3 and K.4, respectively. 
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SOLUTIONS OBTAINED FOR A PERMEABILITY VALUE 


OF 500.0 MILLIDARCIES 
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APPENDIX K 


COPIES OF THE COMPUTER PROGRAMS FOR CASES 
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MAIN LINE 


TRANSTENT ISOTHERMAL RADIAL GAS FLOW IN POROUS MEDIA 
CASE: ft 


CONSTANT TERMINAL RATE CASE AND CONSTANT 
EXTERNAL PRESSURE 


THIS PROGRAM SOLVES A SECOND ORDER NON-LINEAR 
PARABOLIC-TYPE PARTIAL DIFFERENTIAL EQUATION FOR 
TRANSTENT ISOTHERMAL RADIAL GAS FLOW THROUGH POROUS 
MEDIAe. THE MATHEMATICAL MODEL IS GENERAL IN THE SENSE 
THAT NOT ONLY INCLUDES SLIPPAGE AND INERTIAL EFFECTS, 
BUT ALSO TAKES INTG ACCOUNT CHANGES OF GAS PROPERTIES 
AND POROSITY WITH PRESSURE. THE SOLUTION FOR THE 
MODEL IS OBTAINED BY USING THE FINITE DIFFERENCES 
TECHNIQUE. THE SYSTEM OF NON-LINEAR ALGEBRAIC 
EQUATIONS OBTAINED AFTER DISCRETIZATION GIVES A 
COEFFICIENT MATRIX WHICH IS TRIDIAGONAL AND THEREFORE 
THOMAS ALGORITHM WAS USED TO THE SOLUTION OF THE 
SYSTEM. 


INPUT DATA 

PI -INITIAL PRESSURE=PF, PSIA 

R -UNIVERSAL GAS CONSTANT=10.72 

MW -NITROGEN MOLECULAR WEIGHT=28.0 

RW -WELLBORE RADIUS, INCHES. LATER ON IS 
NORMALIZED WITH RESPECT TO RE 

RE -EXTERNAL RESERVOIR RADIUS, FEET 

CR -ROCK COMPRESSIBILITY, 1/PSIA 

PHI -ROCK POROSITY AT SURFACE CONDITIONS, 
FRACTION 


DR -DIMENSIONLESS SPACE INCREMENT IN THE 
RADIAL DIRECTION 

NSETS—AN INTEGER TO INDICATE NUMBER OF SETS 
TO BE RUN 

MM -AN INTEGER TO INDICATE THE NUMBER OF 
TIME STEPS PLUS ONE. ACTUAL NUMBER OF 
TIME STEPS 1S thM=1) 

‘A, -AN INTEGER TO INDICATE TOTAL NUMBER OF 
GRID POINTS TO BE USED SUCH THAT THE LAST 
POINT CORRESPONDS TO A NORMALIZED DISTANCE 


EQUALS TO 1.0 


T -TEMPERATURE, DEG. F 
EPS -—-AN ERROR CRITERION FOR CONVERGENCE OF 
SOLUTION 


DTIME-SET OF VALUES FOR DIMENSIONLESS TIME 
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MAIN LINE .ee(CONT'D) 


STEPS 
MT -REFERENCES POINTS FOR TIME INCREMENT 
(SAY THE 3RDesy STHey ETC’) AT WHICH 
FRACTION OF GAS PRODUCED WILL BE CALCULATED 
ICONT-AN INTEGER TO INDICATE WHETHER ONE OR 
TWO VALUES OF DELTA R WILL BE USED 
ICONT=0 TO INDICATE THAT ONLY ONE VALUE 
OF DELTA R WILL BE USED THROUGHOUT 
THE REGION 
ICONT=1 TO INDICATE THE USE OF TWO 
DIFFERENT VALUES OF DELTA R 
IFG -AN INTEGER TO INDICATE THE SWITCHING 
POINT TO A DIFFERENT VALUE OF DELTA R 
TPOR -AN INTEGER HAVING VALUES O OR 1 
IPOR=0 RATE OF CHANGE OF POROSITY WITH 
PRESSURE IS A CONSTANT 
IPOR=1 RATE OF CHANGE OF POROSITY WITH 
PRESSURE IS A FUNCTION OF PRESSURE 
FLOW -CONSTANT DIMENSIONLESS FLUX PRODUCING 
AT THE WELLBORE 
PERM -ROCK PERMEABILITY, MILLIDARCIES 


B -SLIPPAGE COEFFICIENT, PSIA 
BB -~INERTIAL COEFFICIENT, 1/FT 
REMARKS 


le SINCE THE VALUE OF THE NON-LINEAR COEFFICIENT 
Ky IN THE PARABOLIC DIFFERENTIAL EQUATION 
CANNOT BE NEGATIVE, EXECUTION WILL BE 
SUPPRESED IF 0.5*DR EXCEEDS THE VALUE OF THE 
NORMALIZED RWe IT WILL PRINT A MESSAGE 

2e ONE ASTERISK WILL BE PRINTED TO INDICATE 
THAT THE SOLUTION AT A GIVEN TIME STEP DID 
NOT CONVERGE TO THE DESIRED ACCURACY AFTER 
TEN ITERATIONS 

3. THE PROGRAM CAN ACCEPT A CONSTANT DELTA R 
THROUGHOUT THE REGION OR TWO DIFFERENT 
VALUES THE SWITCHING POINT BEING SPECIFIED 
BY THE PARAMETER’ IFG 


SUBROUTINES REQUIRED 


BCOND 
FPRESS 


REAL*8 K1(196936)9K2(196 936) 961(196,36),ERR(196), 
1P0 (36) ,U0(36) 9BA (196) sK1AVG(196,% 36) yK2AVG(196,36), 
2WX (196936) »WWX(196 36) 9P (196436) yPP(196436) »U(196, 36) 
3 ,UU( 196436) sGLAVG (19636) ,AC0(196),BC0(196),DC0(196), 
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MAIN LINE «ee(CONT'D) 


4CC(196) »DTIME (36) »DSQRT RHO yDEXP yDABS yWX1_WX2 

REAL*8 DER( 196436) »,DERAVG(196,5 36) 4E(196) 4G6(196),D,yBC, 
1RW,REsB7BB yFL yDRyPAVG gPAVG1 yPAVG2,CGyCRyZyVISyPHI»PF, 
2FLOW yCONS sDT PRE »RyMWyPERMsKEY yALPHA,PI,VISI,CGIeZI, 
3RHO1,RHO2 »DR2,PSTD,PHIO,PHIRI 

DIMENSION GP2(20) MT (20) 

COMMON WX yWWX_P PP yU,gUUyZ CGyVIS,sFLOW,LL »MM,ITN 
INTEGER LolLbLyLLbL yLLEL yMyMMyMMMy JgMBygITN 

INTEGER IFG,ICONT 


READ IN INITIAL PRESSURE, PI AND OTHER RELEVANT DATA 


READ (5,520) PI 
READ(5,520) RyMwW 

FORMAT (5D13 6) 

READ(5,520) RW,RE,CRyPHI 
READ(5,520) PF,sDR,DR2 
READ(5,521) NSETSsMM,LL oT EPS 
FORMAT(31452E13.6) 

MMM=MM=1 

READ(5,520) (DTIME(I),1=1,MMM) 


TT=5 


READ IN REFERENCES OF TIME INCREMENTS MT(I) AT WHICH 
FRACTION OF GAS PRODUCED WILL BE CALCULATED 
USING AVERAGE FLUXES 


READ(5,293) (MT(T),1=1,11) 
FORMAT (616) 

READ( 5,293) ICONT,IFG,IPOR 
WRITE(6,3015) ICONT,IFGsDRyDR2 
FORMAT(21692F12.7) 
ALPHA=MW/(R*(T+460.)) 
CONS=DSORT(0272D 02%*0232174D O2/ALPHA) 
LLL=LL-1 

RW=RW/(0.12D 02*RE) 
PSTD=0.214697D 02 

PHIO=PHI 

JK=0 


SETTING DIMENSIONLESS FLUX 


READ(5,520) FLOW 
CALL FPRESS(PI9T) 


(Q*TWOG) ses S47 0G WIAM 
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205 
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207 
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MAIN LINE eee (CONT'D) 
VIS=VIS/(0.1D 03*0.6891D 05) 


CALCULATING POROSITY AT INITIAL RESERVOIR PRESSURE 


PHIRI=0.1D 01-(0.1D O1-PHIO)*DEXP(-CR*(PI-PSTD) ) 


STORING INITIAL VALUES 


VIST=VIS 

CGI=CG 

Z1=Z 

READ(5,520) PERM,B,BB 

JK=JK+1 

CRIT=0-5*DR-RW 

IF(CRIT) 875,875,876 

WRITE(6,295) 

FORMAT(//98Xe'VALUE OF K2AVG AT POINT 1 WILL BE 
INEGATIVE BECAUSE 0.5*DR EXCEEDS THE VALUE OF RW. 
2THIS ORIGINATES ANOMALOUS SOLUTIONS AND THEREFORE 
3EXECUTION WAS SUPPRESSED!) 

GO TO 613 

CONTINUE 

KEY=PERM*¥0.1062D-13 


TIME=0. 

WRITE( 69231) 

FORMAT('1*) 

WRITE( 6,230) 

FORMAT{( *=-*) 

WRITE(6,1059) 

FORMAT(36Xy*TRANSIENT RADIAL GAS FLOW') 


WRITE(6,8667) IPOR 
FORMAT(/ 944X9' IPOR=',129/) 


WRITE( 6,230) 

WRITE(6205) ByBByPERM 

FORMAT(1H 913X9'SLIP COEFF(B)=",Fle3,! INERTIAL 
* COEFF, *(BB)='s 
1D10.3,' PERMEABILITY (K)="'yF8e391X_'MD') 
WRITE(6,206) PHI,CRoPI 
FORMAT(/914X9!POROSITY="'9F7e398Xy%'ROCK 
* COMPRESSIBILITY='+ 
1D10.392X9!INITIAL PRESSURE=' D103) 
WRITE(69207) 

FORMAT (1H0,35Xy'PRESSURE SQUARE DISTRIBUTION') 


WRITE(64220) 
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MAIN LINE «ee (CONT'D) 


220 FORMAT(8X_"'TIME',26Xy*DIMENSIONLESS DISTANCE") 
WRITE( 6,221) 
221 FORMAT(8X,'(TD) RW DELTA R1=0.0010 
* DELTA R2=0. 
1032724") 
WRITE( 69223) 
223 FORMAT(1X,! i 


SETTING THE DIMENSIONLESS SLIPPAGE 


B=B/PF 

INDEX =1 

CALL BCOND( INDEX) 
DO 99 M=1 .MMM 


DT=DT IME(M) 
ITN=0 

CALCULATING NON-LINEAR COEFFICIENTS AT TIME STEP (M) 
CALCULATING K2(L-1/2) AT (M) 

KK=0 

DO 5 L=1,LLL 

IF(LeEQ.1) GO TO 777 

PAVG2=0.5*(P(LyM)+P(L-1yM)) 

PRE=PAVG2*PF 

CALL FPRESS(PREsT) 

VIS=VIS/(0.1D 03*0.6891D 05) 

IF(ICONT.*EQ.0) GO TO 9993 

IF(LeGE.IFG+1) GO TO 9994 

9993 FLL=L 

FL=FLL-1.5 

K2 (LM) =( FL*DR+RW) ¥KEY *PF* (PAVG2+B) /(0.2D O1¥*REXVIS*Z 
ek PAVG2* 
1CONS +RE* BBXKEY *PF *( PAVG2+B ) *Z*DABS(WX(LyM) )) 

GO TO 5 


777 PAVG2=P(1,M) 
PRE=PAVG2*PF 
CALL FPRESS(PRE sT) 
VIS=VIS/(0.1D 03%*0-6891D 05) 
UO(M)=0.4D O1*DR*RE*VIS *Z*P(1_M)*CONS*WX (19M) /(KEY*PF 
* (PAVG2+B) ) 
1+0.2D O1*DR*RE*BB*Z*WX(19M)*DABS(WX(1,M)) + U(2,™) 
IF(UO(M)) 95,97,97 
95 PO(M)=0.1D-09 
GO TO 962 
97 PO (M)=DSORT(UO(M)) 
962 PAVG2=0.5*(PO(M)+P(19M)) 
PRE=PAVG2*PF 
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MAIN LINE «ee(CONT'D) 


CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

K2(LyM)=-(0.5D O00*DR-RW)*KEY*PF*(PAVG2+B)/(0.2D O1*RE 
*x*EV TS * Z% 

1PAVG2*C ONS +RE*BB*KEY%*PF* ( PAVG2+B) *Z*DABS (WX (LyM))) 
GO TO 5 

FL=IFG-1 

KK=KK+1 

F1=KK 

FLL=F1-0.5 

K2(LyM)=( FL*DR+RW4+FLL*DR2) *KEY *PF%(PAVG2+B) /(0.2D O1 
KHER EX VISE Z% 

1PAVG2*C ONS+RE*BB¥KEY*PF* ( PAVG2+B ) *Z*DABS (WX (LyM) )) 
CONT INUE 


CALCULATING K1(L+1/2) AT (M) 


KK=0 

DO 4 L=1l,LLL 
PAVG1=0.5*(P(L+1_9M)+P(L—M)) 
PRE=PAVG1*PF 

CALL FPRESS(PRE»T) 
VIS=VIS/(0.1D 03*0.6891D 05) 
IF(ICONT.EQ.0) GO TO 9999 
IF(L.~GE.-IFG) GO TO 9991 
FLL=L 

FL=FLL-0.5 

K1(L9M) =(FL*DR+RW) *KEY*PF*(PAVG1+B)/(0.22D OL*REXVIS*Z 


**PAVGI* 


9991 


1CONS+RE*BBXKEY*PF*(PAVG1+B) *Z*DABS (WX(L+1_M))) 

GO TO 4 

FL=IFG-1 

KK=KK+1 

F1=KK 

FLL=F1-0.5 

K1(LyM) =(FL*DR+RW+FLL*DR 2) *KEY *PF*(PAVG1+B) /(062D O1 


**R EV IS%* 2% 


4 


1PAVG1L*CONS+RE*BB*KEY *PF* (PAVG1+B) *Z*DABS (WX(L+1_M)) ) 
CONT INUE 


CALCULATING G1 AT (M) 


KK=0 

DO 5000 L=1,LLL 
PAVG3=P(LyM) 
PRE=PAVG3*PF 

CALL FPRESS(PRE+sT) 
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MAIN LINE oee(CONT!'D) 


THE ALTERNATIVE TO DROP THE ASSUMPTION OF RATE OF 
CHANGE OF POROSITY WITH PRESSURE BEING A CONSTANT, 
CAN BE OBTAINED BY SETTING IPOR=1 AND USING THE 
STATEMENTS INDICATED WITH A C FORTRAN COMMENT. 


ITF(TPORJEQ.0) GO TO 8666 
IF(ICONT.EQ.0) GO TO 9995 


PHI=0.21D 01-(0.1D O1—PHIO) *DEXP(-—CR*(PRE-PSTD) ) 
IF( ICONT.EQ.0) GO TO 9995 


IF(L.GE-IFG+1) GO TO 9996 
FL=L-1 
IF(L-1) 536,536,537 


Gl(L_yM)=PHI*RW*PF/Z*(CG+CR*(021D O1/PHI-O.1D O1)) 


G1l(LyM)=RW*PF/Z*(CG+CR¥(021D O1/PHI-O.1D 0O1)) 
GO TO 5000 


G1(L_yM)=PHI* (FL*DR+RW ) *PF/Z*(CG+CR¥*(021D O1/PHI-0O.1D 
01)) 


G1(LyM)=(FL*DR+RW)*PF/Z*(CG+CR¥(021D OL/PHI-O-1D O1)) 
GO TO 5000 

FL=IFG-1 

KK=KK+1 

F1=KK 


G1(L,M) =PHI*(FL*DR+RW+F1*DR2) *PF/Z%*(CG+CR¥(021D 
O1/PHI-0.1D O1)) 


G1(LyM)=(FL*DR+RW+F1*DR2)*PF/Z*(CG+CR*(021D O1/PHI 


*-0.1D 0O1)) 


CONT INUE 
STORING FIRST GUESSES OF P AND U AT (M+1) 


DO 454 L=1,LL 
PP(LyM+1)=P(LyM) 
UU (Ly M+#1)=U(L 9M) 
WWX( Ly M+1)=WX(L 9M) 
WWX (1,M+1) =FLOW 


CALCULATING NON-LINEAR COEFFICIENTS AT TIME 
STEP (M+1) TO OBTAIN AVERAGE VALUES OF THESE 


COEFFICIENTS 
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MAIN LINE eee (CONT'D) 


CALCULATING K2AVG 


CONTINUE 

KK=0 

DO 1051 L=PeLtb 

IF(L~EQ.1) GO TO 5004 

PAVG2=0.5*(PP(LyM+1)+PP(L—-1,M+1)) 

PRE=PAVG2*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

IF( ICONT~EQ.0O) GO TO 3001 

IF(L~GE.~IFG+1) GO TO 3002 

FLL=L 

FL=FLL-1.5 

K2(LyM+1)=(FL*¥DR+RW)*KEY*PF*(PAVG2+B)/(0.2D OL*REXVIS 
** Z*PAVG2* 
1CONS+RE*BB*KEY*PF*( PAVG2+B ) *Z*DABS (WWX(L_yM+1))) 

K2ZAVG(LyM)=(K2(L9M)4+K2(L9M4+1))/2. 

GO TO 1051 

PAVG2=PP(1,M+1) 

PRE=PAVG2*PF 

CALL FPRESS(PREyT) 

VIS=VIS/(0.21D 03*0.6891D 05) 

UO (M+1)=0.4D O1*DR*RE*VIS*Z*PP(1_,M+1)*CONS*WWX(1,M+1) 
*/ (KEY*PFX* 

1 (PP(1,M+1)+B)) + O0262D O1*DR*RE*BB*Z*WWX(1,M+1) 
** DABS (WWX(1.M+1)) 
2+UU(2,M+1) 

TF(UO(M+1)) 955,957,957 

PO (M+1)=0.1D-09 

GO TO 961 

PO(M+1)=DSORT (UO(M+1)) 

PAVG2=0.5%*(PO(M+1)+PP(1,M+1)) 

PRE=PAVG2*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.21D 03*0.6891D 05) 

K2(LyM+1)=-(025D OO*DR-RW)*KEY*PF*(PAVG2+B)/(0-22D O1 
**KR Ek VIS 2% 
LPAVG2*CONS+RE*BB*KEY *PF* (PAVG2+B) *Z*DABS (WWX(L_yM+1))) 

K2AVG(L»M) =005*(K2(L 9M) +K2(L yM+1)) 

GO TO 1051 

FL=I1FG=1 

KK=KK+1 

Fl=KK 

FLL=F1-0.5 

K2(L_yM+1)= st spitebiereenseiiemmemiketenecrKsi: (0. 20 @1 


**RE*VIS 
1*Z*PAVG2*CONS+RE*BB*KEY *PF * (PAVG2+B) *Z*DABS ( WWX(LyM 


*+1))) 
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MAIN LINE eee (CONT'D) 


K2AVG(L 9M) =0.5*(K2(L»M)+K2(L 9M+1) ) 
1051 CONT INUE 


CALCULATING K1AVG 


KK=0 
DO 1050 L=1,LLL 
PAVG1=0.5%*(PP(L+1 ,M+1)+PP(L yM+1)) 
PRE=PAVG1*PF 
CALL FPRESS(PRE,T) 
VIS=VIS/(0.-1D 03*0.6891D 05) 
IF( ICONT.~EQ.0) GO TO 3003 
IF(L.~GE.e-IFG) GO TO 3004 
3003 FLL=L 
FL=FLL-0.5 


ae 


K1i(LyM+1) =(FL*¥DR+RW) *KEY*PF%*(PAVG1+B)/(022D O1L¥*RE*XVIS 


*x Z*PAV G1 * 
1CONS+RE*BB*KEY*PF*(PAVG1+B) *Z*DABS (WWX(L+1,M+1))) 
KLAVG(L 9M) =0.5*(KI(L»M)+K1(L_yM+1)) 

GO TO 1050 

3004 FL=IFG-1 

KK=KK+1 

FIl=KK 

FLL =F1-0.5 


K1 (Ly M+1) =(FLXDR+RW+FLL *DR 2) #KEY*PF* (PAVG1+B) /(0. 2D O1 


**RE*XVIS 


1*Z*PAVG1*CONS+RE*BB*KEY *PF *(PAVG1+B)*Z*DABS (WWX(L+1,M 


*+1))) 
KLAVG(L9M) =0.5*(K1L(LyM)+K1(LyMt+1)) 
1050 CONTINUE 


CALCULATING G1LAVG(LsM) 


KK=0 
DO 5006 L=1lyLLL 
PAVG3=PP(L yM+1) 
PRE=PAVG3*PF 

CALL FPRESS(PRE¢T) 


TO DROP THE ASSUMPTION OF CONSTANT RATE OF CHANGE 


OF POROSITY WITH PRESSURE, FOLLOW THE SAME PROCEDURE 


INDICATED ABOVE WHEN EVALUATING Gl AT M. 


IF(IPOR.EQ.0) GO TO 7836 
PHI=0.1D 01-(021D O1-PHIO)*DEXP(— ~CR*(PRE- PSTD)) 


eee IF(ICONT.EQ.0) GO TO 3005 


IF(ICONTeEQ.0) GO TO 3005 
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K12 


MAIN LINE o..(CONT'D) 
IF(LeGE.IFG+1) GO TO 3006 
FL=L-1 
IF(L-1) 694,694,695 
G1(LyM+1) =PHI*RW*PF/Z*(CG+CR¥*(01D 01/PHI-0.1D 01)) 


G1iLyM+1) =RW*PF/Z*(CG+CR*¥(021D O1/PHI-O.1D 01)) 
GO TO 5005 


G1(L_M+1) =PHI* (FL*DR+RW) *PF/Z*(CG+CR¥*(0.1D0 O1/PHI-0.1D 
01)) 


G1(LyM+1) =(FL¥DR+RW)*PF/Z*(CG+CR¥(021D O1/PHI-0.1D 


* O1)) 


GLAVG(LyM) =0.5%*(G1L(L»M)+G1(LyM+1) ) 
GO TO 5006 

FL=IFG-1 

KK=KK+1 

F1l=KK 


G1(LyM+1) =PHI* (FL¥*DR+RW+F1*DR2)*PF/Z*(CG+CR*(0.1D 
OL/PHI-O.1D 0O1)) 


G1 (L_M+1)=( FL*DR+RW+F 1*DR2)*PF/Z%*(CG+CR*¥(021D O1/PHI 


*-0.1D O1)) 


GLAVG(L,M)=025*(G1 (L»M)+G1(L_yM+1)) 
CONTINUE 


SETTING THE COEFFICIENTS AND GETTING THE SOLUTION 
AT (M+1) USING THE THOMAS ALGORITHM 


RHO=2-*DR¥*2/DT 
RHO1=DR2*DR* (DR2+DR)/DT 
RHO2=0.2D 01*DR2**2/DT 


FOR L=1 


BC=-RHO*GLAVG(19M)—K1AVG(19M)-K2AVG(1_M) 


E(1)=BC 
G( 1) =(-K2AVG (1 9M) *(U0(M+1) -UU(2,M4+1) )-K2AVG(1,M)*U0(M) 


K+ 
1(KIAVG(1 9M) +K2AVG (19M) —-RHO*GLAVG (1,M) )*U01,M)-KIAVG(1 


*%_M) 
2*U(2—M))/BC 


FOR INTERMEDIATE GRID POINTS 
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MAIN LINE «2-(CONT'D) 


JF=LOuS} 
DO 3 L=2yJF 
IF( ICONT~EQ.O0-ORLeLTe-IFG) GO TO 3007 
IF(L~EQ.IFG) GO TO 3008 
RHO=RHO2 
3007 BC=-RHO*GLAVG(L»M)-KLAVG(L yM)-K2AVG(L_M) 
IF(LeEQeIFG+i} GO TO 3016 
IF(LeGT.2) GO TO 666 
E(L)=BC—K2AVG(LyM)*(KLAVG(L—1 9M) +K2AVG(L-1_9M))/E(L—-1) 
GO TO 444 
666 E(L)=BC-K2AVG(L_M)*KIAVG(L-1 9M) /E(L-1) 
GO TO 444 
3016 E(L)=BC-K2AVG(LyM)*K1AVG(L-1,M)*DR/E(L-1) 
444 D=-K2AVG(L9M)*U(L=19M)+(KLAVG(LyM)+K2AVG(LyM) -RHO 
*%* GL AVG(L_yM))* 
LU(LyM)-KIAVG(L »M) *U(L4+1,_M) 
G(L)=(D-K2AVG(L_yM)¥*G(L-1))/E(L) 
GO TO 3 
3008 BC=-RHO1*G1LAVG(L»M)—-KLAVG(LyM)*DR-K2AVG(LyM)*DR2 
E(L)=BC-K2AVG(L 9M) *DR2*KLAVG(L—-1 9M) /E(L=-1) 
=—-K2AVG(L »M)*DR2*U(L=-19M)+(KLAVG(LyM) *DR+K2AVG(LyM) 
**XDR2—-RHO1* 
1GLAVG(L»yM) )*U(L»M)—KIAVG(L yM)*DR¥U(L4+1 4M) 
G(L)=(D-K2AVG(L »M)*DR2*G(L-1))/E(L) 
2 CONTINUE 


FOR L=LLL 


BC=—-RHO*GLAVG(LLL »M)-KLAVG(LLL»M)-K2AVG(LLL,M) 
D=-0.2D O1*KLAVG(LLL »M)-K2AVG(LLLYM)*U(LLL-1,M) 
*+(KLAVG(LLL yM)+ 
1K2AVG(LLL »M)-RHO*GLAVG(LLL»M))*U(LLL 4M) 
E( LLL) =BC-K2AVG(LLLoM)*KLAVG(LLL~-1,M)/E(LLL-1) 
G(LLL)=(D-K2AVG(LLL »M)*G(LLL-1))/E (LLL) 
U(LLL,M+1)=G(LLL) 


GETTING THE SOLUTIONS FOR THE REST OF THE GRID POINTS 


DO 8 J=lyJF 
I=LLL-J 
IF(I2EQ.1) GO TO 333 
IF(I.EQ.IFG) GO TO 3017 
UCT »M+1)=GCT)-KLAVG( 12M) *U(T+1,M+1)/E(T) 
GO TO 8 ; 
333 Ul IT »M+1)=G(1I)-(KLAVG(ITyM)+K2AVG(1T 9M) )*UCT+1,M+1)/E(T) 


GO TO 8 
3017 UCI yM+1)=G(1)-K1LAVG(1yM)*OR*U(IT+1,M+1)/E(1) 


8 CONT INUE 
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MAIN LINE eee (CONT'D) 
SETTING PRESSURES AT (M+1) FOR L=1,LL 


DO 6 L=lyLLL 
IF(U(1,M+1).GT. 0.005) GO TO 6 


OTHERWISE TERMINATE PRODUCTION 


DO 69 K=1,LL 
WX(KyM+1)=021D-16 
U(KyM+1)=0.005 

CONTINUE 

MB=M 

GO TO 678 
P(LyM+1)=DSORT(U(L»M+1)) 


CALCULATING THE FLUX AT TIME STEP (M+1) USING SOLUTION 


OBTAINED AT (M+1) LEVEL 


DO 7 L=2yLL 
IF(L.GT.IFG) GO TO 3009 
DER(LyM+1L)=(U(L»M+1)-U(L—1,M+1))/DR 

DER (LyM) =(U(LyM)-U(L=19M))/DR 

GO TO 3010 

DER (LyM+1)=(U(LyM#1)-U(L-1yM#1)) /DR2 
DER(L,M)=(U(LyM)-U(L—1_M)) /DR2 
DERAVG(LyM)=0.5%*(DER(LyM+1)+DER(LyM)) 
PAVG1=0.5%*(P(LyM+1)+P(L—1,M+1)) 
PAVG2=0.5*(P(LyM)+P(L-19M)) 
PAVG=0.5*(PAVG1+PAVG2) 

PRE=PAVG*PF 

CALL FPRESS(PRE9T) 

VIS=VIS/(0.1D 03%*0.6891D 05) 

BCO(L)=-002D 01*RE*V IS *Z*P AVG*CONS/ (KEY *P F*(PAVG+B) ) 
ACO(L)=-RE*BB¥*Z 

DCO(L) =DSORT (BCO(L)*BCO(L)—4.*ACO(L)*DERAVG(LyM)) 
TF(DERAVG(L»M)LE.0.1E-05) GO TO 17 


ALTERNATIVE FOR QUADRATIC CONSTANT = O. 


IF(DABS(ACO(L))-GT.0.10E-03)G0 TO 15 

WX( Lo M+1) =-1-e*(-DERAVG(L»M)/BCO(L)) 

GO TO 7 
WX1L=-(-BCO(L)-DCO(L))/(2.0*ACO(L)) 
WX2=-(-BCO(L)+DCO(L))/(2.0*ACO(L)) 

IF ( (WX1+DABS(WX1))eLT2O-10E-04) GO TO 18 


; iy a Ma AA 4 
er" *y ) i! 
(@*TMOD).ae aM1a ia Ver kta 


. ; clan Way 
Jigiss 904 (14H. TA “eambaraae. OMIT TIE 3 


t ar 
| Shs aioe 
~SOT 08 (20040. T8et. ee a 

eae ily ; 
‘401 TQUGOR9 ) ata Laat ——- al 


A rd 


ie 3 
ad eens Pe ) arn: day 
wir veh at ae + “aly > 28 nf wiagertes den 
or a “y aE oy oe 0 T O8 
1 ee ei JNU 4 f4My hud E+ yap dna 
(tM ei hand bene OP: 1 el hf hg haat 2 agg tg 
ti te@iaie & Dhow. iain | A das rate ys 


joastneen ciabene 
A tev May. 18 alates ¢ eee ere plied ive ' 


a. 
aye i 


7 


M mo OR te iat. o- a 

Bi. the i. a 
oe sie ot ‘ante ce i pn. 
Py Feo » « 


(ta OVA EAR VI AD -F(d) 


; ce Lk ae 


Cy SOV ARIORE D (500: 4 ether taaamek oe = 
| T1 OT 0 (20935 60e3dety stOvARan aE 
a Oe 


ion Twatana3 orrananu A nt 
TPG ae ne a) ae 
as a AN: 


pA don Plessis beef ant ie ' 


. he ; 7 . i 
i : a. pe 
' " tO: 6. ‘Ty a 4 WR oy. 4 e O&O. Whee 
7. w~ bs 6 Tr a ‘eda . “7 H 
- f 7 aa eis Te or hl 7 i fe Phnd 
7 7 a 7 1 ry : i 7 i ' : 


18 


17 


10 


429 


13 


11 


12 
423 
678 


476 


99 


679 


MAIN LINE «ee(CONT'D) 


TF( (WX2+DABS(WX2)).LT.O.1L0E-04) GO TO 9 
WX(L_yM+1)=WX1 

TF( (WX2+DABS(WX2)).LT.0-10E-04) GO TO 7 
GO. 10 7 

WX(LyM+1)=0. 

60.707 

WX(LyM+1) =WX2 

CONT INUE 


CHECKING CONVERGENCE OF THE SOLUTION 


DO 10 L=1,LLL 
ERR(L)=DABS (PP (LyM+1)—P(LyM+1)) 
IFTERR(LIsLEsEPS) GO TO 10 
GO TO 429 

CONTINUE 

GO TO ll 

DO 13 L=1l,LL 
PP(LyM+1)=P(LyM+1) 
UU(LyM+1)=U(L»M+1) 
WWX(L_yM#1)=WX(LyM+1) 
ITN=ITN+1 

IF(ITN.GT.210) GO TO 12 

GO TO 24 

CONT INUE 


PROBLEM HAS CONVERGED FOR TIME STEP (M+i1) 


GO TO 678 

WRITE( 6,713) 

FORMAT(2X_'*") 
TIME=TIME+DTIME (M) 

TF(MeEQ.11 -OReMeEQ.21) GO TO 476 
GO TO 477 

WRITE(6,231) 

WRITE(6,230) 

WRITE(69230) 

WRITE(6,208) TIME 

FOR MAT(6X,E10-3) 

WRITE(69224) (U(LoM+1),L=leLL» 3) 


FORMAT ( 16X pF Teh 2X oF ToS a 2X oF lhe 2X oF Lote 2X pF le 4y2X 


*yeFTe492Xo 
LF Te 49 2X oF Tl e4a2X oF let e2X oF le) 


TF(U(1,M+1)-eLE.0.005) GO TO 679 
CONTINUE 

MB=M 

MC=MB-4 
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MAIN LINE 22.e(CONT'D) 


CALCULATING FRACTION OF GAS PRODUCED USING AVERAGE 
FLUXES 


DO 291 I=1,I1I 

MK=MT(1) 

TF(U(1,M+1).LE20.005) MK=MC 
FLUX1=0. 

FLUXLL=0. 

DO 395 K=1,_MK 
FAVG1=DABS(WX(19K)+WX(1,K4+1))/2. 
FAVGLL=DABS(WX(LL »K) 4WX(LLyK+1))/2. 
OUT =FAVG1*DT IME (K) 
IN=FAVGLL*DTIME(K) 
FLUXL=FLUX1+O0UT 

FLUXLL=FLUXLL+IN 

CONTINUE 


IF IPOR=1 USE THE STATEMENT WITH A C FORTRAN 
COMMENT TO CALCULATE FRACTION OF GAS PRODUCED 


GP2(1)=ZI/( PHIRI *(1.—-RW**2) )*(RW*FLUXI-FLUXLL) 
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GP2( 1)=ZI*PHIO/ (PHIRI *(1.-RW**2) )*(RW*FLUXI1-FLUXLL) 


MC=MC+1 
CONT INUE 
WRITE(69231) 
WRITE( 6,230) 


WRITE(6,8667) IPOR 


WRITE(6,230) 

B=B*PF 

WRITE(6,205) ByBByPERM 

WRITE(6y210) 

FORMAT(1HO,33X»y"FLUX DISTRIBUTION FOR THE FIRST 40 


* GRID POINTS'*) 


WRITE( 6,230) 

TIME=0. 

DO 75 M=1,MB 

TIME=TIME+DT IME (M) 
TF(MLEQe9eOReMeEQe17) GO TO 494 
GO TO 445 

WRITE( 6,231) 

WRITE(64230) 

WRITE( 6,230) 

WRITE(6,208) TIME 

WRITE(6,515) (WX(LoMt+1)9L=1,40) 
FORMAT(16X,10D11.3) 

CONT INUE 
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MAIN LINE «e-(CONT'D) 


WRITE(6,9000) 
9000 FORMAT(1HO,30X,"*FRACTION OF GAS PRODUCED AT LAST FIVE 
*' TIME LEVELS" 


WRITE(6,9003) (GP2(1),1=1,11) 
9003 FORMAT(/s7X+*FRACTION OF GAS PRODUCED=',5(3X,E10.3)) 
IF(JKeEQeNSETS) GO.TO 613 
GO 10 999 
613 WRITE(6,231) 
STOP 
END 
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SUBROUTINE BCOND 


¢ BEE AIC 2 aK aK aK 2K a2 a ae I aK KK a aK ake a a a a IC a a a a a af ak I KC OKC ake HE 2k aK aK ak af ak aK aK aK ake ae ak ak 9 
‘ 
C THIS SUBROUTINE SETS UP THE INITIAL AND BOUNDARY 
c CONDITIONS FOR EACH SET OF THE BOUNDARY CONDITIONS 
G STUDIED. 
G 
@ PARAMETERS 
G 
C INDEX -CODE FOR EACH SET OF BOUNDARY CONDITIONS 
C INDEX=1 CASE I 
G INDEX=2 CASE TI 
G INDEX=3 CASE III 
C INDEX=4 CASE IV 
C HE IC SC SC AS ao 2 a a 2 ak ok a a a a a ak 2 2K ai 2 ae a ae 2K 2K 2K ai aI 3K KK a aK ac a 2c a ak a ak ae ak 2 
Cc 
SUBROUTINE BCOND( INDEX) 
REAL*®8 WX(196936) »WWX(196 436) »P (196436) »PP(196, 36) 
15U(196536) ,UU(196 436) ,FLOWsZ,CG,VIS 
COMMON WX gWWX9P_PP9UgUU9Z yCGyVISsFLOW,sLLyMM,ITN 
INTEGER LolkbLyLLLyLLLl »MyMMyMMMy JyMBgITN 
C INITIAL CONDITION 
G 


DO 10 L=1l,LL 
P(Lyl)=le 
WX(L_y1)=0.0 

10 U(Ly1)=P(L_y1l)*P (Lol) 


C BOUNDARY CONDITIONS 


GO TO (300 7400,;500,600), INDEX 
300 DO 13 J=2_MM 
P{LLyJ)=P(LLy1) 
U(LLyJ)=U(LL 91) 
WX(1_,J)=FLOW 
13 CONT INUE 
GO TO 700 


C BOUNDARY CONDITIONS 
C 


400 P(LL+1,1)=P(LL—-191) 
U(LL+1_,1)=U(LL-1,1) 
DO 14 J=2_MM 
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SUBROUTINE BCOND 


WX(LL+1,J)=0. 
WX(1,J)=FLOW 
CONTINUE 

GO TO 700 


BOUNDARY CONDITIONS 


DO 15 J=2_MM 
P(LLyJ)=P(LL 41) 
U(LLyJ)=U(LL»1) 
P(1,J)=0.5 
U(1,J)=0.25 
CONT INUE 

GO TO 700 


BOUNDARY CONDITIONS 


P(LL+1,1)=P(LL-1,51) 
U(LL4+1,1)=U(LL-1,1) 
DO 16 J=2,MM 
P(LLyJ)=P(LLo1) 
U(LL,J)=U(LL 91) 
WX(LL+1_9J)=0. 

a | 1y,J)=0.5 
U(1,J)=0225 

CONT INUE 

RETURN 

END 


eee (CONT'D) 
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SUBROUTINE FPRESS 


ale le he le 
BEAK AEA CE BKK OK OK aK 3K 2K IC aK 2 OI 2 aK 2K ak ak ak ok aI aK a afc a aca ak ak ak ak ofc afc afc aK akc aK ak ak ak ak ak ak ak afc afc ak ak 


THIS SUBROUTINE CALCULATES DEVIATION FACTOR Z,y GAS 
COMPRESSIBILITY CG, AND VISCOSITY VIS, FOR NITROGEN 
AS A FUNCTION OF PRESSURE. VALUES OF Z AND CG ARE 
CALCULATED USING B-W-R EQUATION AND VALUES FOR VIS 
USING THE POLYNOMIAL FIT GIVEN BY J. KESTING AND E. 
WANG (SEE REFERENCES). 


PARAMETERS 


¥ PRESSURE, PSIA 
T =-TEMPERATURE, DEG. F 
BE ARDS AE A A BCS 2 DIC AS BC IC ICRI IC 2 IC EC C2 2S I OK ICA 2 2K KOK 9 AS IC aK I 2 KK aK ak 2K 


SUBROUTINE FPRESS(Y,T) 


REAL*8 WX(196936) sWWX(196 936) »P (196436) PP (196, 36) 
1,U(196536) ,UU(196 436) yFLOWyZ,CGyVISyY 

COMMON WX gWWX_9P_PP_yU,UU_Z yCGyVIS,FLOWyLLyMMyITN 
INTEGER LoLbL yL LL yLLLL yMyMMyMMM, JoMByITN 


B-W-R COEFFICIENTS FOR NITROGEN 


A0=1.053642 
BO=0.0407426 
CO0=8059.00 
W=0.025102 

B=0 0023277 
C=728.41 
ALPH=0.0001272 
GAM=0.0053 


DETERMINATION OF GAS DENSITY, D 


AOM=SOQRT(AO) 
BOM=BO 
COM=SORT(CO) 
QO=1./3-6 

AM= W**Q 
BM=B**Q 
CM=C**Q 
ALPHM=AL PH**Q 
GAMM=SQRT (GAM) 
AOM=AOM* AOM 
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SUBROUTINE FPRESS o«+-(CONT'D) 


COM=COM*COM 
AM=A M% AM%* AM 
BM=BM*BM*BM 
CM=CM*CM*CM 
ALPHM=ALPHM*ALPHM*ALPHM 
GAMM=GAMM*GAMM 
R=0.0825 
TV=( T+459.6)/1.28 
Z1=BOM*R*TV-AQM-COM/ (TV*TV) 
Z2=BM*R%*TV=AM 
Z3=AM*ALPHM 
D=0. 
COR=0.1 
DIFFE=10. 
ZZ=0.0001 
$610 «6©TFIDIFFE]{Z2Z) 112531245102 
102 DO 106 J=1,200 
D=D+COR 
PCALC=R¥*TV*D+Z1 *D*¥D+Z2*D*D*D+Z 3*D **6 + (CM*D*D*D/ (TV 
*x TV) )*(1.+GAMM 
1*D*D)%*EXP (-GAMM*D*D ) 
DIFE=Y/14.696 — PCALC 
DIFFE=ABS(DIFE) 
103 IF(DIFE) 104,104,106 
104 GO TO 107 
106 CONT INUE 
107 IF(COR-0O.00001) 112,112,109 
109 D=D-COR 
COR=0-1*COR 
GO TO 101 
112 CONTINUE 
ROO=D 


DETERMINATION OF GAS DEVIATION FACTOR, Z 


CONS=R*TV 
Al=(BO-AO/CONS-CO/ (CONS * TV ** 2) )*CONS 
B1l=(B-W/CONS )*CONS 

C1l=W*ALPH 

D1L=C/TV*%* 2 

PAT=Y/142696 

Z=PAT/(ROO*R*TV ) 


DETERMINATION OF GAS COMPRESSIBILITY, CG 


DENOM=CONS+2 «XAL ¥ROO+3 « *B 1 ¥ROO** 246 C1 *ROO** 542. *D1 


GA MEROOX* 4% 
LEXP(-GAM#ROO**2 )* (1Le—( 1.6 +GAM#ROO**2) ) +3. *D1*ROO**2*( 1. 
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SUBROUTINE FPRESS .«« (CONT! D) 


*+GAM*ROO** 2 

1) *E XP (-GAM*ROO* *2 ) 

DRHO=1./DENOM 

DZ=—-PAT/(CONS*ROO**2 )*DRHO+1./(CONS*ROO) 
CGATM=1./PAT-1./Z*DZ 

CG=CGATM/14.696 


DETERMINATION OF GAS VISCOSITY, VIS 


VIS=177860E-05%*(1.4+86958E—-04%(PAT-1.)+6.120E-07%( PAT 
Km 1, R24 

13. 997E-08%( PAT=1. )**3)+4.55E-05%( TV-298. ) 

RETURN 

END 
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CONSTANT TERMINAL RATE CASE AND SEALED 


EXTERNAL BOUNDARY: CASE II 


CVG CIO CFOS 


Cv) OV 


K24 


MAIN LINE 


MES IC AEA A 2 2 2 2 a aK 2S 2 2K ak aK aK aK aK aK 9K 2K a aK aK 2k ae aK ac a a af aI a aK ak ak akc a8 ak 2k ak ak ak ak a ak 
TRANSTENT ISOTHERMAL RADIAL GAS FLOW IN POROUS MEDIA 
CASE: 21 


CONSTANT TERMINAL RATE CASE AND SEALED 
EXTERNAL BOUNDARY 


HE BC IC ADI 3K afc BEI DI aK 3k ak aK 2 2 a ai aK 2K 2 2k 2 2 aK aK aE aK a a afc 2K aKa ac a ak a a 2 a ek af ak ak akc ak a akc akc ak 


REAL*8 K1(196436) 9K2(196936) 61(196,36),ERR(196), 
1P0(36),U0(36) BA (196) sKLAVG (196436 ),K2AVG(196436), 
2WX(196436) »WWX (196436) 9P (196436) »PP(196436),U(196, 36) 
3,UU(1964936) »GLAVG(196 436) ,ACO(196 ),BCO(196),DC0(196), 
4€€(196),DTIME (36) yDSQRT »RHOgDEXP y DABS gWX1 9 WX2 

REAL*8 DER(196,36) »DERAVG(196,36),E(196) 46(196) »DyBC, 
IRWyREyBy BB gy FL yDRyPAVGyPAVG1yPAVG2,CGyCRy_ZyVIS_,PHIyPF, 
2FLOWsCONS gDT »PRE aR eMWyPERMyg KEY gALPHAgPI,VISI,CGI gZI, 
3RHO1 » RHO2 sDR2 yPSTD,PHIO,PHIRI 

DIMENSION GP2(20),MT(20) 

COMMON WX gWWX_9PyPPyU,UUgZ9CGeVISsFLOW,LLy MM,ITN 

INTEGER Lobb yLLbLyLLLl »>MyMMyMMMy Jy MBeITN 

INTEGER IFGy,ICONT 


READ INPUT DATA 


READ(5,520) PI 
READ(5,520) R MW 
520 FORMAT(5D13.6) 
READ(5,520) RWyRE»yCR_PHI 
READ(5,520) PFyDRyDR2 
READ(5,521) NSETSsMMyLLyTyEPS 
521 FORMAT(314,2E136) 
MMM=MM—1 
READ(5,520) (DTIME(1I),I=1,MMM) 
TJ=5 


READ IN REFERENCES OF TIME INCREMENTS MT(I) AT WHICH 
FRACTION OF GAS PRODUCED WILL BE CALCULATED 
USING AVERAGE FLUXES 


READ(5,293) (MT(1),T=1,11) 

293 FORMAT(616) 
READ(5,293) ICONT,IFG,IPOR 
WRITE(6,3015) ICONT»s IFGs DR» DR2 


3015 FORMAT(216,2F12.7) 
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999 


876 
295 


875 


205 


‘206 


MAIN LINE oee(CONT'D) 


ALPHA=MW/ (R¥*(T+460.)) 

CONS =DSQRT(0.72D 02*0.32174D O2/ALPHA) 
CLE=tt~} 

RW=RW/(0.12D 02%*RE) 

PSTD=0214697D 02 

PHIO=PHI 

JK=0 


SETTING DIMENSIONLESS FLUX 
READ(5,520) FLOW 


CALL FPRESS(PI,T) 
Z1=Z 


CALCULATING POROSITY AT INITIAL RESERVOIR PRESSURE 


PHIRI=0.1D O01-(0.21D O1-PHIO)*DEXP(-CR*¥(PI-PSTD) ) 

READ(5,520) PERM,B,BB 

JK=JK+1 

CRIT=0.5*DR-RW 

IF(CRIT) 875,875,876 

WRITE(6,295) 

FORMAT(//58X¢'VALUE OF K2AVG AT POINT 1 WILL BE 
INEGATIVE BECAUSE 0.25*DR EXCEEDS THE VALUE OF RW. 
2THIS ORIGINATES ANOMALOUS SOLUTIONS AND THEREFORE 
3EXECUTION WAS SUPPRESSED'*) 

GO TO 613 

CONT INUE 

KEY=PERM*0 .1062D-13 

TIME=0. 

WRITE(69231) 

FORMAT('1"*) 

WRITE(6,230) 

FORMAT('=-*) 

WRITE(6,1059) 

FORMAT(36X_*TRANSIENT RADIAL GAS FLOW!) 


WRITE(6,8667) IPOR 
FORMAT(/+44X_'IPOR=',I123/) 


WRITE(64230) 
WRITE(6,205) BsyBByPERM 
FORMAT(1H »13X,'SLIP COEFF(B)=',F7.3,'° INERTIAL 


* COEFF," (BB)=", 


1D10.3,' PERMEABILITY (K)="9F8e391X9'MD') 


WRITE(6,206) PHI,CRyPI 
FORMAT(/914X9"POROSITY="9F72398Xy ROCK 


*x COMPRESSIBILITY='» 
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MAIN LINE eee(CONT!'D) 


1D10.392X," INITIAL PRESSURE=',D10.3) 
WRITE(6,207) 
207 FORMAT(1HO,35X,'*PRESSURE SQUARE DISTRIBUTION!) 
WRITE( 6,220) 
220 FORMAT(8X_,*TIME' »26X,*DIMENSIONLESS DISTANCE') 
WRITE(6,%221) 
221 FORMAT(8X,'(TD) RW DELTA R1=0.0010 
* DELTA R2=0. 
1032 724' ) 
WRITE( 6,223) 
223 FORMAT(1X,! * 


SETTING THE DIMENSIONLESS SLIPPAGE 


B=B/ PF 

INDEX=2 

CALL BCOND( INDEX) 
DO 99 M=1,MMM 
DT=DT IME(M) 

ITN=0 


CALCULATING K2(L-1/2) AT (M) 


KK=0 

DO 5 L=leLbk 

IFttseEQse1)} GO TO V7? 

PAVG2=04 5*(P(LyM)+P(L—-1 9M) ) 

PRE=PAVG2* PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.21D 03*0.6891D 05) 

IF(ICONT.EQ.0) GO TO 9993 

IF(LeGEeIFG+1) GO TO 9994 

9993 FLL=L 

FL=FLL=-1.5 

K2(L»M)=(FL*DRtRW ) *KEY *PF* (PAVG2+B) /(0062D OL*REXVIS*Z 
*%* PAVG2%* 
1CONS+RE*BB*KEY *PF* (PAVG2+B)*Z*DABS (WX(L_M))) 

60 TG 5 

777 = PAVG2=P(1 9M) 

PRE=PAVG2*PF 

CALL FPRESS(PRE sT) 

VIS=VIS/(0.1D 03%*026891D 05) 

UO(M)=0.4D O1*DR¥RE*VIS*Z¥*P(1yM)*CONS*WX(1_M) /(KEY*PF 


*%« (PAVG2+B) ) 
1+0.2D 01*DR*RE*BB*Z*WX(1yM)*DABS(WX(1_,M)) + Ul2_M) 
IF(UO(M)) 95,97,97 
95 PO(M)=0.1D-09 
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MAIN LINE .22e(CONT'D) 


GO TO 962 

PO(M)=DSQRT(UO(M)) 

PAVG2=0.5*(PO(M)+P(1 9M) ) 

PRE=PAVG2*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

K2(LyM)=-(0.5D 00*DR-RW)*KEY*PF*(PAVG2+B)/(0.2D O1*RE 
*eVYIS*Z 

1 PAVG2*C ONS+RE*BB *K EY PF ( PAVG2+B ) *Z*DABS (WX (LyM))) 
GO TO 5 

FL=IFG=1 

KK=KK+1 

F1=KK 

FLL=F1-0.5 

K2(L_M)=(FL*¥DR+RW+FLL*DR2)*KEY *PF*(PAVG2+B)/(0.2D O1 
*ER BV ISKZ 

1 PAV G2*C ONS+RE*BB *K EY *PF* (PAVG2+B) *Z*DABS (WX (L_M))) 
CONT INUE 


CALCULATING K1(L+1/2) AT (M) 


KK=0 
DO-4 L=lstt 

PAVG1=0.5%(P(L+1 9M) +P (LyM)) 

PRE=PAVG1*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

IF(ICONT.EQ.0) GO TO 9999 

IF(LsGE.IFG) GO TO 9991 

FLL=L 

FL=FLL-0.5 

K1( Lo M) =(FL*DR+RW) *KEY*PF*(PAVG1+B)/(0.2D O1¥*RE*VIS#Z 


xx PAVG1% 


LCONS+RE*BB*KEY*PF*( PAVG1+B) ¥Z*DABS (WX(L+1yM))) 

GO TO 4 

FL=IFG-1 

KK=KK+1 

F1=KK 

FLL=F1-0.5 

K1(LoM) =( FL*DR+tRW+FLL*DR2)*KEY*PF*(PAVG1+B)/(0-2D 01 


#R Ex V TS 2 


LPAVG1¥CONS+RE*BB*KEY*PF* (PAVG1+B) *Z*DABS(WX(L+1,™))) 
CONT INUE 


CALCULATING G1 AT (M) 


KK=0 
DO 5000 L=lyLL 
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MAIN LINE 2e-e(CONT'D) 


PAVG3=P(L 4M) 
PRE=PAVG3*PF 
CALL FPRESS(PRE,T) 


IF(IPOR.EQ.0) GO TO 8666 
IF( ICONT.EQ.0) GO TO 9995 


PHT=021D 01-(0.1D O1-PHIO)*DEXP(-CR*(PRE-PSTD) ) 
IF(ICONT.EQ.0) GO TO 9995 


IF(L.GE.IFG+1) GO TO 9996 
FL=L-1 
IF(L-1) 53645364537 


G1(LyM)=PHI*RW*PF/Z*(CG+CR¥(0.1D O1/PHI-O.1D O1)) 


G1 (LM) =RW*PF/Z*(CG+CR*¥(0.21D OL/PHI-O.1D 0O1)) 
GO TO 5000 


G1(LyM)=PHI*(FL*DR+RW)*PF/Z*(CG+CR*(021D O1/PHI-0.1D 
01)) 


G1(L_M)=(FL*¥DR+RW ) *PF/Z*(CG+CR¥*(021D OL/PHI-O.1D O1)) 
GO TO 5000 

FL=IFG-1 

KK=KK+1 

F1=KK 


G1(L»yM)=PHI*(FL*DR+tRW+F 1L*DR2)*PF/Z*(CG+CR¥*(0.21D 
01/PHI-0O.-1D O1)) 


G1(LeM)=(FL*¥DR+RWt+F1*DR2 ) *PF/Z¥*(CG+CR*¥(021D O1L/PHI 


*-0.1D 01)) 


CONTINUE 


STORING FIRST GUESSES OF P AND U AT (M+1) 


DO 454 L=leLL 
PP(LyM+1)=P(L 9M) 
UU(L,M+1)=U(L 9M) 
WWX(LoM+1)=WX(L9M) 
PP(LL+1,M+1)=PP(LL—-1 9M+1) 
UU(LL+1_,M+1)=UU(LL-1,M+1) 
WWX(1,M+1)=FLOW 


CALCULATING K2AVG 
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MAIN LINE .2-e(CONT'D) 


CONTINUE 

KK=0 

OG 2052 Lie 

IF(L~EQe-1) GO TO 5004 

PAVG2=0.5* (PP (LyM+1)+PP(L—-1,M+1)) 

PRE=PAVG2%*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

IF( ICONT.ZEQ.O) GO TO 3001 

IF(L~GE.IFG+1) GO TO 3002 

FLL=L 

FL=FLL-1.5 

K2(L_yM+1)=(FL*DR+RW) *KEY*PF*(PAVG2+B)/(0.2D OL*RE*VIS 
aK ZX PAV G2* 
1CONS+RE*BB*KEY*PF*(PAVG2+B) *Z*DABS (WWX(L,M+1))) 

K2AVG(LyM)=(K2 (LM) +K2(L_9M4+1))/2. 

GO TO 1051 

PAVG2=PP(1,M+1) 

PRE=PAVG2* PF 

CALL FPRESS(PRE»T ) 

VIS=VIS/(0.1D 03*0.6891D 05) 

UO (M+1)=0.4D O1*DR*RE*VIS*Z*PP (1 9M+1)*CONS%*WWX(1,M+1) 
*/ (KEY*PF%* 

1 (PP(1,M+1)+B)) + 022D O1*DR*RE*BB*Z*WWX(1,M+1) 
** DABS (WWX(1,M+1)) z 
2+UU(2,M+1) 

ITF(UO(M+1)) 955,957,957 

PO (M+1)=0.1D-09 

GO TO 961 

PO (M+1)=DSQRT (UO(M+1)) 

PAVG2=0.5%* (PO (M+1)+PP(1_,M+1)) 

PRE=PAVG2* PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03%*0.6891D 05) 

K2(LyM+1)=-(0-5D OO*DR—-RW)*KEY*PF*(PAVG2+B)/(0.22D O1 
*EREKVIS*Z% 
1PAVG2*CONS+RE*BB*KEY *PF* (PAVG24+B) *Z*DABS (WWX(L_yM+1) )) 

K2AVG(LoM) =065*(K2(L 9M) +K2(L M41) ) 

GO TO 1051 

FL=IFG-1 

KK=KK+1 

FI=KK 

FLL=F1-0.5 

K2(L yM+1)=( FL¥DR+RW+FLL *DR2) *KEY *PF*(PAVG2+B)/(0.2D O1 


**xXRE*VIS 
1*Z*PAVG2*CONS+RE*BB *KEY *PF * (PAVG2+B) *Z*DABS(WWX(LyM 


*+1))) 
K2AVG(L9M) =005%*(K2(L 9M) #K2(L M41) ) 


CONTINUE 
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MAIN LINE 22e(CONT'D) 


CALCULATING K1AVG 


KK=0 

DO 1050 L=lyLL 
PAVG1=0.5%*( PP(L+1 »M+1)+PP(LyM+1)) 
PRE=PAVG1*PF ; 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 
IF(ICONT.~EQ.O) GO TO 3003 
IF(LeGE-IFG) GO TO 3004 

FLL=L 

FL=FLL-0.5 


K1(LyM+1)=( FL*DR+RW) *KEY*PF*(PAVG1+B)/(062D O1*REXVIS 


*%* Z%* PAVGL* 
1CONS+RE*BB*KEY *PF *(PAVG1+B)*Z*DABS(WWX(L+1,M4+1))) 
KLAVG(L 9M) =0.5* (KI (LoM)+K1(L_¢M+1)) 
GO TO 1050 
FL=IFG-1 
KK=KK+1 
F1l=KK 
FLL=Fi-0.5 


K30 


Ki (LyM+1) =(FL*¥DR+RW+FLL*DR2) *KEY*PF*(PAVG1+B)/(022D O1 


**REX VIS 


1* Z* PAVG1*C ONS+RE*BB *KEY *PF* (PAVG1+B) *Z*DABS (WWX(L+1 9M 


*+1))) 
KLAVG(L 9M) =0.5* (KI (LyM)+K1(L9M+1)) 
CONT INUE 


CALCULATING G1AVG(L»M) 


KK=0 

DO 5006 L=l LL 
PAVG3=PP(L yM+1 ) 
PRE=PAVG3*PF 

CALL FPRESS(PRE,T) 


IF( IPOR.-EQ.0) GO TO 7836 
PHI=0.1D 01-(0.1D O1-PHIO) *DEXP(-CR*(PRE-PSTD)) 
ITF( ICONT2EQ.O) GO TO 3005 


IF( ICONT.EQ.0) GO TO 3005 
IF(L.GE-IFG+1) GO TO 3006 


FL=L-1 
IF(L-1) 694,694,695 
G1 (L»M+1) =PHI*RW*PF/Z*(CG+CR*(0.1D O1/PHI-0.1D 01)) 


G1(LyM+1) =RW*PF/Z*(CG+CR¥(021D O1/PHI-O.1D 01)) 
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MAIN LINE e«ee(CONT'D) 
GO TO 5005 


Gi(LyM+1) =PHI* (FL*DR+RW)*PF/Z*(CG+CR¥*(021D O1/PHI-0.1D 
O1)) 


G1 (L_yM+1)=(FL*DR+RW)*PF/Z*(CG+CR*¥(0.1D O1/PHI-0.1D 
* O1)) 

GIAVG(L»yM)=0. 5% (G1 (LyM)+G1(L yM41)) 

GO TO 5006 

FL=IFG-1 

KK=KK+1 

F1=KK 


G1(LyM+1)=PHI* (FL*DR+RW+F1*DR2) *PF/Z*(CG+CR*(0.21D 
O17 PHI=-6..1D G1)) 


G1(L_yM+1) =(FL*¥DR+RW+F1*DR2) *PF/Z%*(CG+CR*¥(021D O1/PHI 
SeGerD- OL) 

GLAVG(L»M) =0.5*(G1(L»M)+G1(L_M+1)) 

CONT INUE 


SETTING THE COEFFICIENTS AND GETTING THE SOLUTION 
AT (M+1) USING THE THOMAS ALGORITHM 


RHO=2.*DR**2/DT 
RHO1=DR2*DR*¥(DR2+DR)/DT 
RHO2=0.2D O1*DR2**2/DT 


FOR L=1 


BC=~RHO *GLAVG(1»M)-KLAVG(1,M)—-K2AVG(1,M) 


E(1)=BC 
G(1)=(-K2AVG(1 9M) *(U0(M+1) -UU(29M41) )-K2AVG(1_,M)*U0(M) 


4 
L(KLAVG(1 9M) +K2AVG(1—9M)-RHO*GLAVG(1_M) )*U(C1,M)-KIAVG(1 
*yM) 

2*U(2_9M))/BC 


FOR INTERMEDIATE GRID POINTS 


DO 3 L=2yLLL 
IF(ICONT.EQs0.O0ReLeLTeIFG) GO TO 3007 

IF(LeEQ.IFG) GO TO 3008 

RHO=RHO2 

BC=—-RHO*GLAVG(L»M)- -KLAVG(L9M)-K2AVG(L 9M) 
IF(LeEQ.IFGt1) GO TO 3016 

fFiLs6T«2) GO TO 666 

E(L) =BC-K2AVG(L 9M) *(KLAVG (L—=1yM) #K2AVG(L-1,M))/E(L-1) 
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MAIN LINE eee(CONT'D) 


GO TO 444 
666 E(L)=BC-K2AVG(LyM)*K1AVG(L—-1 9M) /E(L=-1) 
GO TO 444 
3016 E(L)=BC-K2AVG(L 9M) *K1AVG(L-1,M)*DR/E(L=-1) 
444 D=-K2AVG(L9M)*U(L=1 9M) +(KLAVG(L»M)+K2AVG(L,M)—RHO 
**GLAVG(L»M))% 
LU(L+M)-K1LAVG(L»M)*U(L4+1_M) 
G(L)=(D-K2AVG(L»M)¥*G(L-1)) /E(L) 
GG TO 3 
3008 BC=-RHO1*GLAVG(LyM)-K1LAVG(L 9M) *DR-K2AVG(L_M) *DR2 
E(L)=BC-K2AVG(LyM)*DR2*KLAVG(L-1,M)/E(L-1) 


D=—K 2AVG(L 9M) *DR2*U(L=-19M)+(KLAVG(LyM)*DR+K2AVG(L4M) 


** DR 2-RHO1* 
LGLAVG(LsM))¥*U(L»M)—KLAVG(L 9M) *DR*U(L+1,™M) 
G(L)=(D-K2AVG(LyM)*DR2*G(L-1))/E(L) 

3 CONT TINUE 


FOR L=LL 


BC=-RHO*GLAVG(LL »M)-KIAVG(LL »M)-K2AVG(LLyM) 


D=(KLAVG(LL »M)+K2AVG(LL 9M) -RHO*GLAVG(LL_M) )*U(LL,M) +( 


*—KLAVG(LL »M) 
1-K2AVG(LL 9M) )*U(LL—1_M) 


E(LL)=BC-(KIAVG(LL oM)+K2AVG(LL yM) )*KLAVG(LL-1,M)/E(LL 


*=1) 
G(LL)=(D-(KLAVG(LL 9M) +K2AVG(LL 9M) ) *G(LL=1)) /E(LL) 
U( LL» M+1)=G(LL) 


GETTING THE SOLUTIONS FOR THE REST OF THE GRID POINTS 


DO 8J=1,LLL 

T=LL-J 

tre feEOsi)} GO TO 333 

IF(I.EQ.IFG) GO TO 3017 

UC I,M+1)=G(1)-K1LAVG(I yM)*U(IT+1,M4+1)/E(T) 
GO TO 8 


333 Ul IyM+1)=GCI)-(KLAVG(I »M)+K2AVG(1 9M) )*UCT+1,M4+1)/E(1) 


GO TO 8 
3017 U(I,M+1)=G(1)-K1LAVG(1»M)*DR*U(T+1,M+1)/E(1) 
8 CONT INUE 


SETTING PRESSURES AT (M+#1) FOR L=1lyLL 


DO 6 L=lyLL 
IF(U(1,M+1)eGTe 0-005) GO TO 6 


OTHERWISE TERMINATE PRODUCTION 
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MAIN LINE «..(CONT'D) 


DO 69 K=l,LL 
WX(KyM+1)=0.1D-16 
U(KyM+1)=0.005 

CONT TINUE 

MB=M 

GO TO 678 

P(LyM+1)=DSQRT (U(LyM+1)) 


CALCULATING THE MASS FLUX AT TIME STEP (M+1) USING 
SOLUTION OBTAINED AT (M+#1) LEVEL 


DO 7 L=2,LL 

IF(L«GT.IFG) GO TO 3009 

DER (L¢M+1)=(U(L_M+1)-U(L-1,M+1))/DR 
DER(LyM)=(U(L»M)-U(L-1,M))/DR 

GO TO 3010 

DER( Ly M41) =(U(L»M41)-U(L=-1,M+1))/DR2 

DER (LyM)=(U(L»M)-U(L~-1,M))/DR2 

DERAVG(L MM) =0.5*(DER(L »M+1)+DER(LyM)) 
PAVG1=0.5*(P(L_yM+1)+P(L~-1_yM+1)) 
PAVG2=0.5%*(P(LyM)+P(L—1 _M) ) 
PAVG=0.5* ( PAVG1+PAVG2 ) 

PRE=PAVG*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

BCO(L)=-0.2D 01 *RE*VIS*Z*PAVG*CONS/(KEY*PF*(PAVG+B) ) 
ACO(L)=-RE*BB¥*Z 

DCO(L)=DSQRT (BCO(L) *BCO(L )—-4e *ACO(L)*DERAVG(LyM) ) 
IF(DERAVG(L »M)eLE«O21F-05) GO TO 17 


ALTERNATIVE FOR QUADRATIC CONSTANT = Of 


IF(DABS(ACO(L))-GT»0-10E-03)GO0 TO 15 
WX (Lo M+1)=-1.* (-DERAVG(L»M)/BCO(L)) 


GO TO 7 
WX1=—(-BCO(L)-DCO(L))/(2-e0*ACO(L)) 
WX2=—(-BCO(L)+DCO(L))/(2-0*ACO(L) ) 


IF ((WX1+DABS (WX1))-LT2O/10E-04) GO TO 18 
IF ( (WX2+DABS(WX2))-LTeO10E-04) GO TO 9 
WX(L¢M+1)=WX1 

IF ( (WX2+DABS(WX2))-eLT2O-10E-04) GO TO 7 
GO TO 7 

WX(LyM+1) =O. 

GO TO 7? 

WX(L—oM+1)=WX2 

CONT INUE 
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MAIN LINE 2ee(CONT!D) 


CHECKING CONVERGENCE OF THE SOLUTION 


HO 10 Lei ghe 
ERR(L)=DABS (PP (LyM+1)—P(LyM+1)) 
IF(ERR(L)-eLE-EPS) GO TO 10 
GO TO 429 

CONTINUE 

GO TO ll 

DO 13 E=lLeLt 
PP(LyM+1)=P(L_M+1 ) 
UU(L»yM+1) =U(LyM+1) 
WWX(LyM+t1)=WX(L M41) 
ITN=ITN+1 

IF(ITN.e-GT210) GO TO 12 

GO TO 24 

CONT INUE 


PROBLEM HAS CONVERGED FOR TIME STEP (M+1) 


GO TO 678 

WRITE( 6,713) 

FORMAT(2X_**!) 

TIME=T IME+DTIME (M) 
TF(MeEQ211-ORMeEQ.21) GO TO 476 
GO TO 477 

WRITE(69231) 

WRITE( 69230) 

WRITE(64230) 

WRITE(6,208) TIME 
FORMAT(6X,E10.3) 

WRITE(69224) (U(LyM+1),L=lyLLs3) 
FORMAT(16X gFT e499 2X oF l oS 2X og Fl ety 2X oF lot 2X pF la4y2X 


* FT. 492X¢ 


LF Te 492X oF 7 ote 2X oF let a 2X oF le4) 
IF(U(1_Mt+1)eLE20-.005) GO TO 679 


CONTINUE 
MB=M 
MC=MB-4 


CALCULATING FRACTION OF GAS PRODUCED USING AVERAGE 
FLUXES 


DO 291 I=1,I!1 
MK=MT(T) 
TF( UC 1,M+1)2LE«0.005) MK=MC 


FLUX1=0. 
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MAIN LINE eee (CONT'D) 


FLUXLL=0. 
DO 395 K=1,_MK 
FAVG1=DABS (WX(1,K)4+WX(1,K4+1))/2. 
FAVGLL=DABS(WX(LL yK)+WX(LLyK+1))/2. 
OUT=FAVG1*DTIME (K) 
IN=FAVGLL*DT IME (K) 
FLUXL=FLUX1+0UT 
FLUXLL=FLUXLL+IN 

395 CONTINUE 


GP2(1T)=ZI/(PHIRI*(1.—-RW**2) )%*(RW*EFLUXL-FLUXLL) 


GP2(1T)=ZI*PHIO/ (PHIRI*(1.-RW**2))* (RW*FLUX1-FLUXLL) 
MC=MC+1 
291 CONTINUE 
WRITE( 69231) 
WRITE(65230) 


WRITE(6,8667) IPOR 


WRITE(65230) 
B=B* PF 
WRITE(6,205) ByBByPERM 
WRITE( 69210) 
210 FORMAT(1HO,33X_,"'FLUX DISTRIBUTION FOR THE FIRST 40 
* GRID POINTS") 
WRITE(69230) 
TIME=0. 
DO 75 M=1,_MB 
TIME=TIME+DT IME (M) 
TF(MLEQ.9¢OReMeEQ217) GO TO 494 
GO TO 445 
494 WRITE(6,231) 
WRITE( 6230) 
WRITE( 69230) 
445 WRITE(6,208) TIME 
WRITE(6515) (WX(L9M+1) 9L=1940) 
515 FORMAT(16X,10011.3) 
75 CONTINUE 
WRITE(6,9000) 
9000 FORMAT(1HO,30Xy'FRACTION OF GAS PRODUCED AT LAST FIVE 
* TIME LEVELS! 
1) 
WRITE(6,9003) (GP2(1),T=1,I1) 
9003 FORMAT(/,7Xs*FRACTION OF GAS PRODUCED=',5(3X,E10.3) ) 
IF(JKeEQeNSETS) GO TO 613 
GO TO 999 
613 WRITE(6,231) 
| stop 
END 
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CONSTANT TERMINAL PRESSURE CASE AND CONSTANT 


EXTERNAL PRESSURE: CASE III 
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MAIN LINE 


PE AE BE AEE HE KI AK BKC 3 2K ICA A 9K OIC A OK aK 2 21 I SICA aK 2K 21 21 I 3 KCC aK 2K 2 GK 2k 2K 
TRANSTENT ISOTHERMAL RADIAL GAS FLOW IN POROUS MEDIA 
CASE III 


CONSTANT TERMINAL PRESSURE CASE AND CONSTANT 
EXTERNAL PRESSURE 


BE PIE DIS AR BIC BS IEC HC KC A FS DIC FS IC BSE OE AE BIS DS DIS SIS OK OE SE OE IEE OK OK OK BIE 2S ISK 2K OIC OK OK SIC OC OIC aC IS aK IS 2K aK OK aK 3c 2k 


REAL*8 K1(196436)9K2(196 536) 461(196,36),ERR(196), 
1P0( 36) ,U0(36) 4BA(196) sK1LAVG(196436) ¢K2AVG(196, 36), 
2WX( 196536) -WWX (196936) 9P (196436) PP (196,36) ,U(196, 36) 
3yUU (196436) »GLAVG(196 436) ACO(196) ¥BC0(196) ,DC0(196), 
4C€C (196) ,DTIME (36) yDSORT »RHOyDEXP y DABS gWX1 4 WX2 

REAL*8 DER(196 436) ,DERAVG (196,436) ,E(196) 46(196) ,D,BC, 
IRW,RE,ByBByFL yDRePAVGyPAVG1,PAVG2,CG_yCR_oZ_yVIS_PHIyPF, 
2FLOW,CONS sDT »PREyReMWyPERMy KEY yALPHAgPI,VISI,CGI ,Z1, 
3RHO1 »RHO2 yDR2 yPSTDyPHIO,PHIRI 

DIMENSTON GP2(20),MT(20) 

COMMON WX gWWX oP PP yU,UU gZ,CGeVISsFLOW gLLy,MM,ITN 

INTEGER LoLbLyLLLyLLLb »MyMMyMMMyJgMByITN 

INTEGER IFG,ICONT 


READ INPUT DATA 


READ(5,520) PI 

READ(5,520) R»MW 
FORMAT(5D13.6) 

READ(5,520) RWyREyCRyPHI 
READ(5,9520) PFsDRyDR2 

READ(5,521) NSETS»MMyLLyTyEPS 
FORMAT(314,2E13.6) 

MMM=MM—1 

READ(5,520) (DTIME(I),IT=1,MMM) 
T[=5 


READ IN REFERENCES OF TIME INCREMENTS MT(1I) AT WHICH 
FRACTION OF GAS PRODUCED WILL BE CALCULATED 


READ(5,293) (MT(1),T=1,IT) 
FORMAT( 616) 

READ(5,293) ICONT,IFG;IPOR 
WRITE(693015) ICONT, IFGy DRy DR2 
FORMAT(216,2F12.7) 

ALPHA=MW/ (R¥*(T+4606)) 
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MAIN LINE wee (CONT'D) 


CONS=DSORT(0.272D 02%*0.32174D O2/ALPHA) 
LLL=LL-1 

RW=RW/(0.212D 02*RE) 

PSTD=0.14697D 02 

PHIO=PHI 

JK=0 

CALL FPRESSTPEsT) 

Z1=Z 


CALCULATING POROSITY AT INITIAL RESERVOIR PRESSURE 


PHIRT=0.1D 01-(0.1D O1-PHIO)*DEXP(-CR*(PI-PSTD) ) 

999 READ(5,520) PERM,B,BB 

JK=JK+1 
CRIT=0.5*DR=-RW 
IF(CRIT) 87598755876 

876 WRITE(6,295) 

295 FORMAT(//98Xs'VALUE OF K2AVG AT POINT 1 WILL BE 
INEGATIVE BECAUSE 025*DR EXCEEDS THE VALUE OF Rw. 
2THIS ORIGINATES ANOMALOUS SOLUTIONS AND THEREFORE 
ZEXECUTION WAS SUPPRESSED * ) 

GO TO 613 
875 CONTINUE 
KEY=PERM*0.1062D-13 
TIME=0. 
WRITE(69231) 
231 FORMAT('1*) 
WRITE( 6,230) 
230 FORMAT('-') 
WRITE(6,1059) 
1059 FORMAT(36X_,*TRANSIENT RADIAL GAS FLOW!) 


WRITE(6,8667) IPOR 
C8667 FORMAT(/544X_' IPOR=',129/) 


WRITE( 69230) 
WRITE(6,205) ByBByPERM 
205 FORMAT(1H 913X9'SLIP COEFF(B)="yF7e3,' INERTIAL 
* COEFF',"(BB)="y 
1D10.3,%  PERMEABILITY(K)="yF8.391Xy'MD!) 
WRITE(69206) PHI,CRoPI 
206 FORMAT(/914X9! POROSITY="4F7.398Xy 'ROCK 
* COMPRESSIBILITY="9_ 
1010.372Xy" INITIAL PRESSURE="yD10.3) 
WRITE(6,207) 
207 FORMAT(1H0935X9 "PRESSURE SQUARE DISTRIBUTION") 
WRITE(6,220) 
220 FORMAT(8X_!TIME',26Xy "DIMENSIONLESS DISTANCE!) 
WRITE(6,221) 
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MAIN LINE «ee (CONT'D) 


FORMAT (8X_"(TD) RW DELTA R1=0.0010 


*"SEETA "R2 =0 5 


1032724!) 
WRITE(64223) 
FORMAT(1X,! =) 


SETTING THE DIMENSIONLESS SLIPPAGE 


B=B/PF 
INDEX=3 

CALL BCOND( INDEX) 

DO 99 M=1,MMM 
DT=DTIME(M) 
ITN=0 


CALCULATING K2(L-1/2) AT (M) 


KK=0 

DO 5 L=2_LLL 

IF{L+E051) GO TO TTT 

PAVG2=0.5*(P(LyM)+P{(L—-1,M)) 

PRE=PAVG2*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 
IF(ICONT.EQ.0) GO TO 9993 
IF({L»~GE~IFG+1) GO TO 9994 

FLLEL 

PLSFLi=1.5 

K2(LyM)=( FL*¥DR+RW)*KEY*PF*(PAVG2+B)/(02.2D OL*RE*VIS*Z 


*%*PAVG2% 


1CONS+RE*BB¥KEY*PF*( PAVG24B) *Z*DABS(WX(LyM) ) ) 
GO TO 5 

PAVG2=P(1 9M) 

PRE=PAVG2*PF 

CALL FPRESS(PREsT) 

VIS=VIS/(0.1D 03%*0.6891D 05) 

UO(M)=0e4D O1*DR¥RE*V IS *Z*P (19M) *CONS*WX (1_M)/(KEY*PF 


ax ( PAVG2+B)) 


140.2D 01*DR¥*¥RE*XBB*Z*WX (19M) *DABS(WX(19M)) + Ul2,_M) 
IF(UO(M)) 95,97,97 

PO(M)=0.1D-09 

GO TO 962 

PO(M)=DSQRT(UO(M)) 

PAVG2=0. 5*(PO(M)+P(19M)) 

PRE=PAVG2*PF 

CALL FPRESS(PRE+T) 

VIS=VIS/(02.1D 03*0.6891D 05) 
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MAIN LINE .wee(CONT'D) 


K2(L_yM)=-(0.5D O0*DR-RW)*KEY *PF*(PAVG2+B)/(0.2D O1*RE 
**KV TSK Z% 
1 PAVG2*CONS+RE*BB*KEY *PF * (PAVG2+B) *Z*DABS(WX(LyM)) ) 
GO TO 5 
9994 FL=IFG-1 
KK=KK+1 
F1l=KK 
FLL=F1-0.5 
K2(LyM)=(FL*¥DR+RWt+FLL*DR2) *KEY *PF*(PAVG2+B)/(0.22D O1 
**RE*XVIS*Z% 
1PAVG2*CONS+RE*BB*KEY *PF* (PAVG2+B)*Z*DABS (WX(LyM))) 
2 CONTINUE 


CALCULATING K1(L+1/2) AT (M) 


KK=0 

DO 4 L=2,LLL 
PAVG1=0.5*(P(L+1,M)+P(L_M)) 
PRE=PAVG1*PF 

CALL FPRESS(PRE>»T) 
VIS=VIS/(0.21D 03*0.6891D 05) 
FL ICONTsEO.0)} GO TG 9999 
IF(LeGEe-IFG) GO TO 9991 


9999 FLL=L 
FL=FLL-0.5 
K1(LyM)=( FL*DR+RW)*KEY*PF*(PAVG1+B)/(062D OL*REXVIS*Z 
*%#*x PAVGIL* 
1CONS#+RE*BB*KEY*PF%*(PAVG1+B) *Z*DABS(WX(L+1,M))) 
GO TO 4 
9991 FL=IFG—1 
KK=KK+1 
F1l=KK 
FLL=F1-0.5 
K1(LyM)=(FL*¥DR+RW+FLL*DR2)* KEY *PF*(PAVG1+B)/(022D O1 
mR EV TS 2% 


LPAVG1L*¥CONS+RE*BB*KEY *PF*(PAVG1+B) *Z*DABS(WX(L+1,M))) 
4 CONTINUE 


CALCULATING Gl AT (M) 
KK=0 

DO 5000 L=2,LLL 
PAVG3=P(L_M) 
PRE=PAVG3*PF 

CALL FPRESS(PRE+T) 
IF(IPOR.EQ.0) GO TO 8666 


IF(ICONT~EQ.0) GO TO 9995 
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5000 


454 


24 


MAIN LINE eee (CONT'D) 


PHT=0.1D 01-(0.1D O1-PHIO)*DEXP(-CR*(PRE-PSTD) ) 
IF(ICONT.EQ.0) GO TO 9995 


IF(L.GE.IFG+1) GO TO 9996 
FL=L-1 
IF(L-1) 536,536,537 


G1(LyM)=PHI*RW*PF/Z*(CG+CR¥(0.1D OL/PHI-O.1D 0O1)) 


G1(LyM)=RW*PF/Z*(CG+CR¥(021D OL/PHI-O.1D 0O1)) 
GO TO 5000 


G1(LyM)=PHI*(FL*DR+RW)*PF/Z*(CG+CR*¥(021D O1/PHI-0.1D 
01)) 


G1(LyM)=(FL*DR+RW ) *PF/Z%*(CG+CR¥*¥(O021D O1/PHI-O.1D 0O1)) 
GO TO 5000 

FL=IFG-1 

KK=KK+] 

FI=KK 


G1(L_»M)=PHI* (FL*DR+RW+F1*DR2)*PF/Z*(CG+CR¥*(0.21D 
O1/PHI-0.1D O1)) 


G1(LyM) =(FL¥DR+RW+F1*DR2) *PF/Z¥*(CG+CR¥(061D O1/PHI 
=0.41D Q1)) 
CONTINUE 


STORING FIRST GUESSES OF P AND U AT (M+1) 


DO 454 L=l¢LL 
PP(L,yM+1)=P(L>M) 
UU(i»M+1)=U(L»M) 
WWX(LoM+1) =WX (LM) 
PP(1,M+1)=0-5 
UU(1,M+1)=0.25 


CALCULATING K2AVG 


CONT INUE 

KK=0 

DO 1051 L=2,LLL 

IF(LeEQ.1) GO TO 5004 
PAVG2=0.5*(PP(LyM+1)+PP(L-1_M+1)) 
PRE=PAVG2* PF 

CALL FPRESS(PRE ¢T) 

VIS=VIS/(0.1D 03*0-6891D 05) 
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MAIN LINE «ee(CONT!D) 


IF(ICONT.EQ.0) GO TO 3001 
IF(L.GE.IFG+1) GO TO 3002 
3001 FLL=L 
FL=FLL-1.5 
K2(L_M+1) =(FL*DR+RW) *KEY*PF *(PAVG24+B)/(0.2D O1*REXVIS 
3k 23 PAV G2 * 
1CONS+REXBB*KEY%*PF*( PAVG2+B) *Z*DABS (WWX(LyM+1)) ) 
KZ2AVG(LyM)=(K2(L gM) +K2(LyM41))/2. 
GO TO 1051 
5004 PAVG2=PP(1,M+1) 
PRE=PAVG2*PF 
CALL FPRESS(PREyT) 
VIS=VIS/(0.1D 03%*0.6891D 05) 
UO(M+1)=0.4D O1*DR¥*RE*XVIS*Z*PP (1 yM+1)*CONS*WWX( 1, M41) 
*/ (KEY P Px 
1 (PP(1,M+1)+B)) + 0.2D 01*DR¥*RE*BB*Z*WWX(1,M+1) 
** DABS (WWX(1_M+1)) 
2+UU( 2_M+1) 
TF(UO(M+1)) 955,957,957 
955 PO(M+1)=0.1D-09 
GO TO 961 
957 PO(M+1)=DSORT(UO(M+1)) 
961 PAVG2=0.5*(PO(M+1)+PP(1yM+1)) 
PRE=PAVG2*PF 
CALL FPRESS(PRE,T) 
VIS=VIS/(0.1D 03*0.6891D 05) 
K2(LyM+1)==(0.5D O0*DR-RW)*KEY*PF*(PAVG2+B)/(0.2D 01 
RR EKV ITS 2% 
1 PAV G2*CONS+RE*BB*KEY*PF% ( PAVG24+B ) ¥Z*DABS (WWX(LyM4+1))) 
KZAVG(L9M)=0.5%(K2(L MI +K2(L 9M41)) 
GO TO 1051 
3002 FL=IFG-1 
KK=KK+1 
FL=KK 
FLL=F1-0.5 
K2 (Ly M+1) =( FLXDR+RW+FLL*DR 2) *KEY *PF*(PAVG2+B) /(0.2D O01 


**eRE*VIS 
1*Z7*PAVG2*CONS+RE*BB*KEY *PF *(PAVG2+B) *Z*DABS (WWX(L_™M 


*+1))) 
K2AVG(L_M) =065%*(K2(L »M)+K2(L 9M4+1)) 


1051 CONTINUE 


CALCULATING K1AVG 


KK=0 

DO 1050 L=2,LLL 

PAVG1=0. 5*(PP(L+19M+1)+PP(LyM+1)) 
PRE=PAVG1*PF 

CALL FPRESS(PREyT) 
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MAIN LINE eee (CONT'D) 


VIS=VIS/(0.1D 03*0.6891D 05) 

TFC ICONT.EQ.0) GO TO 3003 

IF(L.«GE.~IFG) GO TO 3004 

FLL=EL 

FL=FLL-0.5 
K1(L»9M+1)=(FL*DR+RW)*KEY*PF*(PAVG14+B)/(0.22D OL*RE*XVIS 
xx Z%*XPAVGL* 
1CONS+RE*BB*KEY*PF*( PAVG1+B) *Z*DABS (WWX(L+1,M+1))) 
KIAVG( LM) =0.5*(K1 (LM) +K1(L yM+1)) 

GO TO 1050 

FL=IFG=-1 

KK=KK+1 

FI=KK 

FLL=F1-0.5 

Ki (LyM+1) =( FL*DR+RW+FLL*DR2) *KEY*PF*(PAVG1+B)/(0.2D O1 
*KREXVIS 
1*Z*PAVG1*CONS+RE*BB*KEY*PF*(PAVG1+B) *Z*DABS(WWX(L+1,M 
*+1))) 

KLAVG(LyM)=0.5%*(K1 (LoM)F+KL(L yM+1)) 

CONTINUE 


CALCULATING GLAVG(L_M) 


KK=0 

DQ 5006 L=2,LLL 
PAVG3=PP(L _M+1) 
PRE=PAVG3*PF 

CALL FPRESS(PRE,»T) 


IF(IPOR.EQ.0) GO TC 7836 
PHI=0.1D 01-(0.1D O1-PHIO)*DEXP(-CR*¥(PRE-PSTD) ) 


IF(ICONT.EQ.O) GO TO 3005 


IF(ICONT.~EQ-0) GO TO 3005 
IF(LeGE-IFG+1) GO TO 3006 
FL=L-1 

ITF(L-1) 694 56943695 


G1(bLyM+1) =PHI*RW*PF/Z*(CG+CR*¥(0.1D O1/PHI-0O.1D 0O1)) 


Gl1(L>M+1) =RW*PF/Z*(CG+CR¥(021D O1/PHI-O.1D O1)) 
GO TO 5005 


G1(L,M+1)=PHI*(FL*DR+RW )*PF/Z*(CG+CR*¥(021D O1/PHI-0.1D 
01)) 


G1 (Ly M+1) =(FL*DR+RW) ¥PF/Z*(CG+CR*(061D O1/PHI-0.1D 


* O1)) 
GLAVG(L 9M) =0.5* (G1(L»M)4+G1(LyM+1)) 
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MAIN LINE .6-(CONT'D) 


GO TO 5006 
FL=IFG-1 
KK=KK+] 
F1l=KK 


G1(LyM+1) =PHI*(FL*DR+RW+F1*DR2)*PF/Z*(CG+CR*¥(0O01D 
O1/PHI-0.1D O1)) 


G1(L>yM+1)=(FL*DR+RW+F1*DR2)*PF/Z%*(CG+CR*¥(021D O1/PHI 
*-0.1D O1)) 

GLAVG(LyM)=0.5*(G1 (LyM)+G1(LyM+1)) 

CONTINUE 


SETTING THE COEFFICIENTS AND GETTING THE SOLUTION 
AT (M+1) USING THE THOMAS ALGORITHM 


RHO=2-*DR**2/DT 
RHO1=DR2*DR* (DR2+DR) /DT 
RHO2=062D O1*DR2**2/DT 


FOR L=2 

BC=-RHO*GLAVG (2 »M)-K1AVG(29M)-K2AVG( 29M) 

E(2)=BC 

G(2)=(-K2AVG(2 9M) *U( Ly M41 )-K2AVG (29M) *U( 19M) +(KLAVG(2 
*yM)+ 


1K 2AVG(2 9M) -RHO*¥GLAVG (2 9M) )*U(29M)—-KLAVG(2_9M)*U(3,M) ) 
*/BC 


JF=LLL—-1 


FOR INTERMEDIATE GRID POINTS 


DO 3 L=3,JF 
IF( ICONTsEQ.0.OR-sLeLT~IFG) GO TO 3007 

IF(LeEQeIFG) GO TO 3008 

RHO=RHO2 

BC=-RHO*¥GLAVG(LyM)—K1LAVG(L »M)-K2AVG(LyM) 
IF(LeEQeIFG+1) GO TO 3016 

IF(L.GT.2) GO TO 666 
E(L)=BC-K2AVG(L 9M) *(K1LAVG(L=1 9M) +K2AVG(L-1)M))/E(L=1) 
GO TO 444 

E(L)=BC-K2AVG(L 9M) *K 1AVG(L-1 9M) /E(L-1) 

GO TO 444 

E(L)=BC-K2AVG(L 9M) *K LAVG(L—1yM)*DR/E(L-1) 

D=-K2AVG(L 9M) *U(L—1 9M) +(KLAVG(L 9M) +K2AVG(L_M) -RHO 


**GLAVG(L»M))* 
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MAIN LINE «e-6(CONT'D) 


LU(L+M)-KIAVG(L yM)*U(L+1_M) 
G(L)=(D-K2AVG(L»M)*G(L-1))/E(L) 

GO TO 3 

BC=-RHO1*G1LAVG(L»M)-K1LAVG(L »M)*DR-K2AVG(L_M)*DR2 
E(L)=BC-K2AVG(L 9M) *DR2*K1LAVG(L—-1 9M) /E(L-1) 
D==—K2AVG(L_M)*DR2*U(L=19M)+(KLAVG(LyM)*DR+K2AVG(L 9M) 
**DR2—-RHO1* 

1GLAVG(LyM) )*U(L»M)-KLAVG(LyM) *DR*¥U(L4+1_M) 
G(L)=(D-K2AVG(LyM)*DR2*G(L-1))/E(L) 

CONTINUE 


FOR L=LLL 


BC=-RHO*GLAVG(LLL »M)-KLAVG (LLL »M)—-K2AVG(LLL,M) 
D=-0262D OL*KLAVG(LLL yM)—-K2AVG(LLL 9M) *U(LLL-1,M) 
*+(KLAVG(LLL »M)+ 
LK 2AVG(LLL »M)-RHO*GLAVG(LLL »M))*U(LLL YM) 
E(LLL)=BC-K2AVG(LLL»M)*KLAVG(LLL~-1,M)/E(LLL-1) 
G(LLL)=(D-K2AVG(LLL »M)*G(LLL~-1))/E(LLL) 
U(LLL,M+1)=G(LLL) 
JFLHAIF-1 


GETTING THE SOLUTIONS FOR THE REST GF THE GRID POINTS 


DO 8 J=1,JF1 

I=LLL~-J 

IFtlsEQei1) GO 1G 335 

1F( iv EQ. I FG) GO TO 3017 

UC T,M+1)=G(1)-K1LAVG(1sM)¥*U(T+1,M+1)/E(1) 

GO TO 8 
U(1,M+1)=G(1T)-(KLAVG(I »M)+K2AVG(T 9M) )*U(T+19M4+1)/E(T) 
GO TO 8 

UC 1,M+1) =G(1T)-KLAVG( IT »M)*DR*U(T+1_,M+1)/E(1) 


CONTINUE 
SETTING PRESSURES AT (M+1) FOR L=lyLL 


DO 6 L=1l,LLL 
P(LyM+1)=DSQRT(U(LyM+1)) 


CALCULATING THE MASS FLUX AT TIME STEP (M+1) USING 
SOLUTION OBTAINED AT (M41) LEVEL 


DO 7 L=lyLL 
IF(L~EQ.1) GO TO 3011 
IF(LeGTeIFG) GO TO 3009 
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MAIN LINE 2ee(CONT!'D) 


DER (LyM+1)=(U(LyM41)-U(L-1,M+1))/DR 
DER(LyM)=(U(L»M)-U(L-19M))/DR 
GO TO 3010 
3009 DER(LyM+1)=(U(L»M4+1)-U(L-1,M+1))/DR2 
DER (L 9M) =(U(L»M)-U(L-1,5M))/DR2 
GO TO 3010 
3011 i a aa ia il i ld ae 
* ) 
DER (19M) =(-3 e*¥U(L 9M) 446*U(L4+1,M)-U(L+29M))/(2.*DR) 
DERAVG(1 9M) =0.5*(DER(1,M+1)+DER(1_M)) 
PAVG=(P(1,M+1)+P(19M))/2. 
GO TO 3012 
3010 DERAVG(LsM)=0.5*(DER(L »M+1)+DER(L»_M) ) 
PAVG1=0.5*(P(LyM+1 )+P(L—-1l,M+1)) 
PAVG2=0.5*(P(LyM)+P(L-1,M)) 
PAVG=0.5%*(PAVG1+PAVG2) 
3012 PRE=PAVG*PF 
EALL FPRESS(PRE,sT ) 
VIS=VIS/(0.1D 03*0.6891D 05) 
BCO(L)=-0.2D O1L*RE*VIS*Z*PAVG*CONS/ (KEY *PF*(PAVG+B) ) 
ACO(L)=-RE*BB*Z 
DCO(L)=DSORT (BCO(L)*BCO(L)—-4-*ACO(L)*DERAVG(L,M) ) 
IF(DERAVG(L»M).eLE.O-1E-05) GO TO 17? 


ALTERNATIVE FOR QUADRATIC CONSTANT = O- 


IF(DABS(ACO(L))-GT.0.10E-03)G0 TO 15 
WX(LoM+1)=-1.* (-DERAVG(L»M)/BCO(L)) 
60 10 7 
15 WX1l=-(-BCO(L)-DCO(L))/(2.*ACO(L)) 
WX2=-(-BCO(L)+DCO(L))/(2-0*ACO(L)) 
IF( (WX1+DABS(WX1))-LT~O-10E-04) GO TO 18 
IF ((WX2+DABS (WX2))-LT«O-10E-04) GO TO 9 
18 WX(L—oM+1) =WX1 
TF ((WX2+DABS (WX2)).LT-Os10E-04) GO TO 7 


GO TO 7 
i? WX(LyM+1)=O6 
GO TO 7 
9 WX(L_M+1) =WX2 
7 CONTINUE 


CHECKING CONVERGENCE OF THE SOLUTION 


DO 10 L=2,LLL 
ERR(L)=DABS(PP(L_M+1)—-P(LyM+1)) 


IF(ERR(L)-eLEeEPS) GO TO 10 
GO TO 429 
10 CONT INUE 
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MAIN LINE 22e(CONT'D) 


GO TO ll 

GOES 4/51 stb 

PP(LyM+1)=P(LyM+1) 
UU(L»yM+1)=U(L »M+1 ) 
WWX(LoM+1)=WX(L»M+1) 

ITN=ITN+1 

IF(ITN.GT210) GO TO 12 

GO TO 24 

CONTINUE 

PROBLEM HAS CONVERGED FOR TIME STEP (M41) 
GO TO 678 

WRITE(6, 713) 

FORMAT(2X_!*!*) 
TIME=TIME+DTIME(M) 
IF(MJ£EQ211-OReMeEQ~221) GO TO 476 
GO TO 477 

WRITE(6,231) 

WRITE(6,230) 

WRITE( 6,230) 

WRITE(6,208) TIME 
FORMAT(6X,E10.3) 

WRITE(65224) (U(LyM4+1),L=1lyLL 3) 
FORMAT (LEX FF le4e2X oF le4 eg 2X oF let 2X gF le hin 2% F7.492X 
%eF 7 e4e2Xo 
LET eS 2Xg Fl eGo 2X oF le 4 2X oF 704) 
CONTINUE 

MB=M 

CALCULATING FRACTION OF GAS PRODUCED USING AVERAGE 
FLUXES 

po 291 I=1,I!I 

MK=MT(1) 

FLUX1=0. 

FLUXLL=0.- 

DO 395 K=l1,MK 
FAVGL=DABS(WX(19K)4+WX(1,Kt1))/2. 
FAVGLL=DABS(WX(LL 9K) +WX(LLyK+1))/2. 
OUT =FAVG1*DT IME (K) 
IN=FAVGLL*DTIME(K) 
FLUXL=FLUX1+0UT 

FLUXLL=FLUXLL+IN 

CONTINUE 


GP2(1T)=ZI/( PHIRI *(1 -O-RW**2 )) *(RW*FLUX1-FLUXLL ) 
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MAIN LINE wee (CONT'D) 


GP2(1)=Z1*PHIO/ (PHIRI *(1.—-RW**2) )*(RW*FLUX1-FLUXLL) 
CONTINUE 

WRITE (6,231) 

WRITE(6,230) 


WRITE(6,8667) IPOR 


WRITE(6,230) 

B=B* PF 

WRITE(6,205) ByBByPERM 

WRITE(6,210) 

FORMAT(1HO,33Xy'FLUX DISTRIBUTION FOR THE FIRST 40 
GRID POINTS*) 

WRITE(64230) 

TIME=0. 

DO 75 M=1,MB 

TIME=T IME+DT IME (M) 
IF(MZEQ.9.OR.MEQ.17) GO TO 494 

GO TO 445 

WRITE(64231) 

WRITE( 6,230) 

WRITE(64230) 

WRITE(6,208) TIME 

WRITE(6,515) (WX(LyM+1)9L=1540) 
FORMAT(16X,10D11.3) 

CONTINUE 

WRITE(6,9000) 
FORMAT(1HO,30X,y"FRACTION OF GAS PRODUCED AT LAST FIVE 
TIME LEVELS! 

) 

WRITE(6,9003) (GP2(I)yI=1,I11) 


FORMAT(/+7X_9*FRACTION OF GAS PRODUCED=',5(3X,E10.3) ) 
IFC JKsEQesNSETS) GO TO 613 

GO TO 999 

WRITE(69231) 

STOP 


END 
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CONSTANT TERMINAL PRESSURE CASE AND SEALED 


EXTERNAL BOUNDARY: CASE IV 
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MAIN LINE 


ERE Ea BK ICR I aI A aI I IC aK aK 2 aC a aK ka ak 2K aK aK a a aK ak a ak ae a ak ak a aK a a a ak ate ak 
TRANSIENT ISOTHERMAL RADIAL GAS FLOW IN POROUS MEDIA 
CASE iV 
CONS TANT TERMINAL PRESSURE CASE AND SEALED 
EXTERNAL BOUNDARY 


BE AS BRS IE BIE HE HS HE OIE IS DIS A FS BK AE BIS AE DC DIK FE AE DIE DIE DIK DIK DIS IC OK DIS HK DIS IIS DKK DIE OK 21S 2S OK IC IS OK 2K IC IS 2K OK OK OK 3K 


REAL*8 K1(196436)4K2(196436) 9G61(196,36),ERR(196), 
1P0(36),U0(36) »BA(196) sKLAVG(196,4 36) yK2AVG(196,36) y 


— 2WX(196_ 36) gWWX(196 436) 9P (1964 36) yPP(1964 36) ¥U( 196,36) 


520 


S21 


295 


3015 


3,UU(196,%36) »G1AVG(196436),AC0(196),BCO(196),DC0(196), 
4€€0(196) ,DTIME (36) ,DSQRT »,RHO sDEXP,DABS gWX1_WX2 

REAL*8 DER( 196336) »sDERAVG(196, 36) »E(196),G6(196),D,BC, 
IRWeREsBeBB es FL eDRePAVGsPAVGI] »PAVG2,CGyCRoZeVISyPHIyPF, 
Z2FLOW,CONS 9DT sPREsRyMWePERMeKEY sALPHAsPI,VISI,CGI,ZI1, 
3RHO1,RHO2 sDR2,PSTDsPHIO,PHIRI 

DIMENSION GP2(20),MT (20) 

COMMON WX gWWX_P_9PP,U,UU,Z »CGeVIS,FLOW,gLLyMM,ITN 
INTEGER LolbLeLLLyLLLb »MyMMyMMMy JgMByITN 

INTEGER IFG,ICONT L 


READ INPUT DATA 


READ( 5,520) PI 

READ(5,520) R»eMW 
FORMAT(5D13-6) 

READ(5,520) RWyRE,CRyPHI 

READ( 5,520) PFsDR,DR2 
READ(5_521) NSETSsMMyLL oT yEPS 
FORMAT(31492E13-6) 

MMM=MM~—1 
READ(5,520) (DTIME(I),1T=1,MMM) 


READ IN REFERENCES OF TIME INCREMENTS MT(1I) AT WHICH 
FRACTION OF GAS PRODUCED WILL BE CALCULATED 
USING AVERAGE FLUXES 


Il=5 

READ(5,293) (MT(I),IT=1lyIT) 
FORMAT( 616) 

READ(5,293) ICONT,IFG,IPOR 
WRITE(6,3015) ICONTs IFGsy DRy DR2 
FORMAT(21692F12.7) 
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MAIN LINE 262 (CONT'D) 


ALPHA=MW/(R*(T+460.)) 

CONS=DSQRT(0.72D 02%*0232174D O2/ALPHA) 
LLL=LL~-1 

RW=RW/(0212D O2*RE) 

PSTD=0.14697D 02 

PHIO=PHI 

JK=0 

CALL FPRESSIPIsT) 

Z1=Z 


CALCULATING POROSITY AT INITIAL RESERVOIR PRESSURE 


PHIRI=0.1D 01-(0.1D O1-PHIO)*DEXP (-CR¥*(PI-PSTD) ) 

999 READ(5,520) PERM,B,BB 

JK=JK+1 
CRIT=0.5*DR-RW 
IF(CRIT) 875,875,876 

876 WRITE(6,295) 

295 FORMAT(//98X_,*VALUE OF K2AVG AT POINT 1 WILL BE 
I1NEGATIVE BECAUSE 0.5*DR EXCEEDS THE VALUE OF RW. 
2THIS ORIGINATES ANOMALOUS SOLUTIONS AND THEREFORE 
Z3EXECUTION WAS SUPPRESSED‘) 

GO TO 6153 
875 CONT INUE 
KEY=PERM*O .1062D-13 
TIME=0. 
WRITE(6,231) 
234 FORMATE*1*) 
WRITE(64230) 
230 FORMAT(*-*) 
WRITE(6,1059) 
1059 FORMAT(36X_,'TRANSIENT RADIAL GAS FLOW!) 


WRITE(6,8667) IPOR 
C8667 FORMAT(/944X_,'IPOR=',129/) 


WRITE(6,230) 
WRITE(6,205) ByBB,PERM 
205 FORMAT(LH »913X%9'SLIP COEFF(B)="sF7.e3_9" INERTIAL 
* COEFF','(BB)=", 
1010.35!  PERMEABILITY(K)="yF8.391Xy'MD!*) 
WRITE(6,206) PHI,CRyPI 
206 FORMAT(/,14X9"POROSITY="yF7.398Xy *ROCK 
* COMPRESSIBILITY='y 
1D10.392Xy" INITIAL PRESSURE=',D10.3) 
WRITE(6,207) 
207 FORMAT(1H0,35Xy'PRESSURE SQUARE DISTRIBUTION") 


WRITE(6,220) 
220 FORMAT(8X,'TIME*,26X_,"DIMENSTONLESS DISTANCE®) 
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MAIN LINE wee (CONT'D) 


WRITE(6,221) 
221 FORMAT(8X,*(TD) RW DELTA R1=0.0010 
* DELTA R2=0. 
1032724!) 
WRITE( 6,223) 
223 FORMAT(1X,! a 


SETTING THE DIMENSIONLESS SLIPPAGE 


B=B/PF 

INDE X=4 

CALL BCOND( INDEX) 

DO 99 M=1_,MMM 

DT=DT IME(M) 

ITN=0 

CALCULATING: K2(L-1/2) AT (M) 
KK=0 

DO 5 L=29LL 

PFULsEG.1F GO’ TO TTT 
PAVG2=0.5%*(P(iLyM)+P(L—-1_M)) 
PRE=PAVG2*PF 

CALL FPRESS(PRE,T) 
VIS=VIS/(0.1D 03*0.6891D 05) 
IF(ICONT.EQ.0) GO TO 9993 
TEILeGEs. fPG+1) GO TO 999% 

927s. FLL =t 

PLEPLL+i.5 
K2(LyM)=(FL*DR+RW) *KEY*PF*(PAVG2+B)/(022D O1L¥*RE*VIS*Z 
*%* PAVG2* 
LCONS+RE*BB*KEY*PF*( PAVG2+B) *Z*DABS(WX(L_M))) 
GO TO 5 


777 PAVG2=P(15M) 
PRE=PAVG2*PF 
CALL FPRESS(PREyT) 
VIS=VIS/(0.1D 03*0.6891D 05) 
UO(M)=0.4D O1*DR*RE*VIS*Z*P (14M)*CONS#WX (14M) / (KEY*PF 
4k (PAVG2+B) ) 
140.2D O1*DR*RE*XBB*Z*WX (1_M)*DABS(WX(19M)) + U(2_M) 
IF(UO(M)) 9549797 
95 PO(M)=0.1D-09 
GO TO 962 
97 PO(M)=DSORT(UO(M)) 
962 PAVG2=0.5%*(PO(M)+P(1_M)) 
PRE=PAVG2*PF 
CALL FPRESS(PRE9T) 
VIS=VIS/(0.1D 03*0.6891D 05) 
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MAIN LINE eee (CONT'D) 


K2(LyM)=-(065D 00*DR-RW) *KEY *PF* (PAVG2+B)/(0.2D O1*RE 
eM LS 2% 

1 PAVG2*CONS+RE*BB*KEY *PF% (PAVG2+B ) *Z*DABS(WX(LyM))) 
6@ 70 5 

FL=IFC—1 

KK=KK+1 

F1=KK 

FELSF1I-0,.5 
K2(L_yM)=(FL*¥DR+RW+FLL*DR2) *KEY *PF*(PAVG2+B)/(022D 01 
PORE FV IS 2% 
1PAVG2*CONS+RE*BB*KEY *PF * (PAVG2+B)*Z*DABS(WX(LyM))) 
CONTINUE 


CALCULATING K1(L+1/2) AT (M) 


KK=0 

DO 4 L=2,yLL 

PAVG1=0. 5*(P(L+1,9M)+P(LyM)) 

PRE=PAVG1*PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

IF(ICONT.EQ.0) GO TO 9999 

PP(LeGEstFG) GO TO 9991 

FLLEL 

FL=FLL-0.5 
K1(L_yM)=(FL*DR+RW) *KEY*PF* (PAVGI+B)/(0.2D O1*RE*VIS*Z 
** PAVG1* 
1CONS+RE*BB*KEY *PF*(PAVG14+B)*Z*DABS(WX(L+19M))) 

GO TO 4 

FL=IFG—-1 

KK=KK+1 

F1=KK 

FLL=F1-0.5 

K1(L 9M) =(FL*DR+tRWtFLL *DR2) *KEY *PF*(PAVG1+B)/(022D O1 


KEREXVIS*Z* 


4 


1PAVG1*CONS+RE*BB*KEY *PF * (PAVG1+B)*Z*DABS(WX(L+1_,M))) 
CONTINUE 


CALCULATING Gl AT (M) 


KK=0 

DO 5000 L=2,LL 
PAVG3=P(L»M) 
PRE=PAVG3* PF 

CALL FPRESS(PRE¢T) 


IF(IPOR.EQ.0) GO TO 8666 
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MAIN LINE wee (CONT'D) 
IF(ICONT.EQ.O) GO TO 9995 


PHI=0.1D 01-(0.1D O1-PHIO) *DEXP(-—CR¥*(PRE-PSTD) ) 
IF( ICONT~EQ.0) GO TO 9995 


IF(L.GE.IFG+1) GO TO 9996 
FL=L-1 
IF(L-1) 536,536,537 


G1(L_yM)=PHI*RW*PF/Z*(CG+CR¥(0.21D OL/PHI-0O.1D 01)) 


G1(LyM)=RW*PF/Z*(CG+CR*(O0.21D OL1/PHI-0.1D 01)) 
GO TO 5000 


G1(L_M)=PHI* (FL*DR+RW )*PF/Z*(CG+CR¥(0.1D O1/PHI-0.1D 
O1)) 


G1(LyM)=(FL¥DR+RW) *PF/Z*(CG+CR¥*(0010 O1/PHI-0.1D 01)) 
GO TO 5000 

FL=IFG-1 

KK=KK+1 

FL=KK 


G1(L,M) =PHI* (FL*DR+RW+F1*DR2) *PF/Z2*(CG+CR¥(021D 
O1/PHI-0.1D O1)) 


G1(L_M)=(FL*DR+tRW+F1*DR2)*PF/Z*(CG+CR¥(0.1D O1/PHI 


*=0,1D 01)) 


CONT INUE 


STORING FIRST GUESSES OF P AND U AT (M+1) 


DO 454 L=leLL 
PP(LyM+1)=P(LoM) 
UU(L_M+1)=U(LyM) 

WWX( Ly M+1)=WX(L_M) 
PP(LL+1,M+1)=PP(LL~1,M+1) 
UU(LL+1_,M+1) =UU(LL-1_9M+1) 
PP(1,M+1)=0.5 
UU(1,M+1)=0.25 


CALCULATING K2AVG 


CONTINUE 
KK=0 

DO 1051 L=2,9LL 

IF(LeEQe1) GO TO 5004 
PAVG2=025% (PP (LyM+1)+PP(L—1 yM+1)) 
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MAIN LINE 2«ee(CONT!D) 


PRE=PAVG2* PF 

CALL FPRESS(PRE,T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

IF(ICONT.EQ.O) GO TO 3001 

IF(L.~GE.IFG+1) GO TO 3002 

FLL=L 

PUeSPrEel-i165 

K2(L_M+1) =(FL*DR+RW)*KEY*PF* (PAVG2+B)/(0.2D O1*RE*VIS 


7% 2% PAVG2* 


1CONS+RE*BB*KEY *PF* (PAVG2+B)*Z*DABS (WWX(LyM+1))) 
K2AVG(L 9M) =(K2 (L 9M) +K2(LeM4+1))/2.6 

GO TO 1051 

PAVG2=PP(1,M+1) 

PRE=PAVG2*PF 

Ceee FPRESS( PRE +T) 

VIS=VIS/(0.1D 03*0.6891D 05) 

UO(M+1)=0.4D O1L*DR¥RE*VIS*Z%*PP(1,M+1)*CONS*WWX(1,M+1) 


* J (KEY PE 


1 (PP(1,M+1)+B)) + 0.2D O1*DR*RE*BB*Z *WWX (1_,M+1) 


** DABS (WWX(1_M+1)) 
2+UU(2_M+1) 


ITF(UO(M+1)) 955,957,957 

PO(M+1)=0.1D-09 

GO TO 961 

PO(M+1)=DSORT (UO(M+1) ) 

PAVG2=0.5*(PO(M+1)+PP(1,M+1)) 

PRE=PAVG2*PF 

CAEL FPRESS (PRE oT) 

VIS=VIS/(0.1D 03%*0.6891D 05) 

K2 (L—eM+1)=—-(0.5D OO*DR-RW) *KEY*PF¥*(PAVG2+B)/(0.2D O1 


HERE KV TS *Z% 
1 PAVG2*CONS+RE*BB*KEY *PF* (P AVG2+B ) *Z* DABS ( WWX(L_yM+1))) 


K2AVG(LyM) =0.5*(K2(LyM)+K2(LgM+1) ) 

60 TO 1051 

FL=IFG-1 

KK=KK+1 

F1l=KK 

FLL=F1-0.5 
K2(LyM+1)=(FL*DRtRWtFLL*DR2 ) *KEY*PF*(PAVG2+B)/(062D O1 


*x*REXVIS 


1 7 PAVG2*C ONS+RE*BB *K EY ¥PF* (PAVG2+B) *Z*DABS (WWX(L 9M 


*+1))) 


K2AVG(L_M) =065*(K2(L—M)+K2(L9M+1)) 
CONT INUE 


CALCULATING K1AVG 


KK=0 
.00 1050 L=29LL 
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MAIN LINE .«ee(CONT!D) 


PAVG1=0.5%*(PP(L+1,M+1)+PP(LyM+1)) 
PRE=PAVG1* PF 

GALL FPRESS (PRE »T.) 

VIS=VIS/(0.1D 03*0.6891D 05) 
IF(ICONT.EQ.0) GO TO 3003 
IF(LeGE.IFG) GO TO 3004 

FLL=L 

FL=FLL-0.5 


Ki (LyM+1)=( FL*DR+RW)*KEY*PF% (PAVG1+B)/(0.2D O1*RE*VIS 


aK 23% PAVG 1* 
1CONS+RE*BB*KEY *PF > (PAVG1+B )*Z*DABS(WWX(L+1,M+1))) 
KLAVG(L 9M) =0.5*(K1I(L»M)+K1(L_M+1) ) 

GO TO 1050 


3004 FL=IFG-1 


1050 


KK=KK+1 
F1=KK 
FLL=F1-0.5 


K1(LyM+1)=(FL*DR+RW+FLL *DR2 )*KEY*PF*(PAVG1+B)/(0.2D O1 
eeREXVIS 
1* Z%* PAVG1*C ONS+RE*BB*KEY *PF* (PAVG1+B)*Z*DABS (WWX(L+1_M 
+E) )) 


KLAVG(L 9M) =0.5*(KI(L»M)+K1(LyM+1) ) 
CONT TINUE 


CALCULATING G1AVG(L MM) 


KK=0 
DO 5006 L=2y5LL 
PAVG3=PP(LyM+1) 
PRE=PAVG3*PF 

CALL FPRESS(PRE,T) 


IF(IPOR.EQ.0) GO TO 7836 
PHI=0.1D 01-(0-1D O1-PHIO) *DEXP(-CR¥*(PRE-PSTD) ) 


IF( ICONT.EQ.0) GO TO 3005 


IF( ICONT.EQ.0) GO TO 3005 
IF(LeGEeIFG+1) GO TO 3006 
FL=L-1 

IF(L-1) 694 57694,695 


G1(L,M+1) =PHI*RW*PF/Z*(CG+CR¥(0.1D OL/PHI-0O.1D 0O1)) 


G1(L,M+1) =RW*PF/Z*(CG+CR*(021D OL/PHI-O0.1D 01)) 
GO TO 5005 


G1(L,M+1) =PHI* (FL*DR+RW)*PF/Z*(CG+CR¥*(061D'O1/PHI-O0.1D 
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MAIN LINE «ee(CONT'D) 


G1(LyM+1)=(FL*DR+RW)*PF/Z*(CG+CR*¥(001D O1L/PHI-O0.1D 
*°O1)) 


5005 GLAVG(LyM)=0.5*(G1 (LyM)+G1(L »Mt+1)) 


GO TO 5006 


3006 FL=IFG-1 


KK=KK+1 
FIl=KK 


G1(LyM+1)=PHI*(FL*DR+RW+F1L*DR2) *PF/Z%*(CG+CR*(0.1D 
GEFPHI=-OstD O1}) 


Gi(LyM+1)=(FL*DR+RW+F1*DR2) *PF/Z*(CG+CR¥(021D O1/PHI 
*-0.1D 01)) 
GLIAVG(LyM) =0.5*(G1(L»M)+G1(LyM+1)) 


5006 CONTINUE 


C 
C 
C 


3007 


666 


SETTING THE COEFFICIENTS AND GETTING THE SOLUTION 
AT (M+1) USING THE THOMAS ALGORITHM 


RHO=2.*DR**2/DT 
RHO1=DR2*DR* (DR2+DR)/DT 
RHO2=0.2D O1L*DR2**2/DT 


FOR L=2 


BC=-RHO*GLAVG(2sM)-KLAVG(2yM)-K2AVG(29M) 

E(2)=BC 

G(2)=(-K2AVG (2 9M)*U (1 yM41)—K2AVG (29M) *U( 19M) +( KIAVG (2 
ty M)+ 

1K 2AVG(2 4M) -RHO*GLAVG (2 9M) )*U (29M) -KIAVG(2_M)*U( 39M) ) 
*/BC 


FOR INTERMEDIATE GRID POINTS 


JF=LLL-1 

OG 3 kesetle 

IF( ICONT~EQ.0.OR-LeLTeIFG) GO TO 3007 
IF(Le~EQ.IFG) GO TO 3008 


RHO=RHO2 

BC=-RHOXGLAVG (L9M)-KLAVG(L »M)-K2AVG(L_M) 
IF(LeEQeIFG+1) GO TO 3016 

IF(LeGT.2) GO TO 666 

E(L )=BC-K2AVG(L 9M) *(KLAVG(L=1 9M) +K2AVG(L=1)M))/E(L-1) 
GO TO 444 

E(L )=BC-K2AVG(L yM)*KLAVG(L-1 9M) /E(L=-1) 

GO TO 444 


3016 E(L)=BC-K2AVG(L 9M) *K1LAVG(L-1,M)*DR/E(L-1) 
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MAIN LINE «ee (CONT'D) 


444 D=-K2AVG(L»M)*U(L-19M)+(KLAVG(L9M)+K2AVG(L_M)—RHO 
**KGLAVG( LM) )% 
LUC L»M)—KLAVG(L yM)*U(L41 9M) 
G(L)I=(D-K2AVG(LoM)*G(L-1))/E(L) 
GO TO 3 
3008 BC=-RHO1*GLAVG(L yM)—K1LAVG(LyM)*DR=K2AVG(L_yM)*DR2 
E(L)=BC-K2AVG(L »M)*DR2*KLAVG(L—1 9M) /E(L-1) 
=-K2AVG(L_yM)*DR2*U(L-1,M)+(KLAVG(L»9M)*DR+K2AVG(L,M) 
** DR2—-RHO1 * 
1GLAVG(LyM) )*U(LyM)-KIAVG(L 9M) *DR*¥U(L4+1,M) 
G(L)=(D-K2AVG(LyM)*DR2*G(L-1)) /E(L) 
3 CONTINUE 


FOR L=LL 


BC=—-RHO*GLAVG (LL »M)—KLAVG(LL »M)—-K2AVG(LL»M) 
D=(KIAVG(LL M)+K2AVG(LL yM)—-RHO*GLAVG(LL 9M) )*U(LL 9M) +( 
*—-KIAVG(LL 9M) 
1-K2AVGC(LL 9M) )*U(LL-1_M) 
E(LL)=BC-(KIAVG(LL »M)+K2AVG(LL 9M) )*KLAVG(LL-1,M)/E(LL 
kee} } 
G(LL)=(D-(K1LAVG(LL 9M) +K2AVG(LL9M))*G(LL~1))/E(LL) 
U(LL»M+1)=G(LL) 


GETTING THE SOLUTIGNS FOR THE REST OF THE GRID POINTS 


DO 8 J=1l,JF 
I=LL-J 
FrCIishQs1) GO TO 333 
ITFCISEQsI FG) GO TO 3017 
UCT, M+1)=G(1)-K1LAVG(I »M)*U (IT +19M4+1)/E(T) 
G0 TO 8 

333 Ul I,M+1)=G(1)—(KLAVG(IyM)+K2AVG(1 9M) )*U(CT+1_,M4+1)/E(1) 
GO TO 8 

3017 UCI,M+1) =G(1)-K1LAVG(I 9M) *DR*¥U(T+1,M4+1)/E(1) 

8 CONTINUE 


SETTING PRESSURES AT (M41) FOR L=1yLL 
DO 6 L=1l¢9LL 
6 P(L_yM+1)=DSQRT(U(LyM+1)) 


CALCULATING THE MASS FLUX AT TIME STEP (M+1) USING 
SOLUTION OBTAINED AT (M41) LEVEL 


DO 7 L=le¢eLL 
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3009 


3011 


15 


MAIN LINE oee(CONT'D) 


IF(LSEOs)) CO TO 3011 

IF(Le-GT.IFG) GO TO 3009 
DER(L,M+1)=(U(LyM+1)-U(L-1,M+1))/DR 

DER (LyM)=(U(L_»M)-U(L=1,M))/DR 

GO TO 3010 

DER (LyM+1)=(U(L M41 )—-U(L-1,M+1))/DR2 
DER(LyM)=(U(L»M)-U(L-149M)) /DR2 

66 TO 3010 

DER( 1, M+1)=(-3 e*U(L yM4+1)4+4.%U(L4+19M41)-U(L4+29M4+1))/(2. 


DR ) 


DER( 19M) =(-3.6*U(L 9M) +46*U(L+19M)—-U(L4+2,M))/(2.*DR) 
DERAVG(1,M)=0.5*(DER(1,M+1)4+DER(1,M)) 

PAVG=(P(1 9M+1)+P(19M))/2. 

68 TO 30i2 

DERAVG(L 9M) =0.5*(DER(L »M+1)+DER(L_M)) 
PAVG1=065*(P(LyM+1)+P(L—1,M+1)) 
PAVG2=0.5*(P(L»M)+P(L—1,_M) ) 

PAVG=0.5*( PAVG1+PAVG2 ) 

PRE=PAVG* PF 

CALL FPRESS(PREsT) 

VIS=VIS/(0.1D 03*0.6891D 05) 

BCO(L)=-0.2D 01*RE*VIS*Z*PAVG*CONS/(KEY*PF* (PAVG+B) ) 
ACO(L)=-RE*BB*Z . 
DCO(L)=DSORT(BCO(L)*BCO(L )-4. *ACO(L)*DERAVG(Ly,M) ) 
ITF(DERAVG(L»M)e-LE«O-1E-05) GO TO 17 


ALTERNATIVE FOR QUADRATIC CONSTANT = O- 


IF(DABS(ACO(L) ).GTe0-10E-03)G0 TO 15 
WX(L_yM+1) =-1.*(-DERAVG(L»M)/BCO(L)) 

60 FO 7 
WX1=-(-BCO(L)-DCO(L))/(2-0*ACO(L)) 
WX2=-(-BCO(L)+DCO(L))/(2.0*ACO(L)) 

TF ((WX1+DABS (WX1))-LT«O/10E-04) GO TO 18 
IF ( (WX2+DABS(WX2))eLTeO-LOE-04) GO TO 9 
WX(LyM+1)=WX1 

IF ( (WX2+DABS(WX2))-LT2O0410E-04) GO TO 7 
GO TO 7 

WX(LyM+1)=0. 

GO TO 7 

WX(LyM+1) =WX2 

CONT INUE 


CHECKING CONVERGENCE OF THE SOLUTION 


DO 10 L=2,LL 
ERR(L)=DABS(PP(LyM+1)-P(LyM+1)) 


.TF(ERR(L)»LE«EPS) GO TO 10 
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MAIN LINE eee(CONT'D) 


GO TO 429 

10 CONT INUE 
GO TO ll 

429 DO 13 L=istl 
PP(LyM+1)=P(LyM+1) 
UU(L,M+1)=U(L_M+1) 

13 WWX(L»M+1)=WX(LyM+1) 
ITN=ITN+1 
IFTITNSSTs1O) GO TO 12 
GO TO 24 

11 CONT INUE 


C PROBLEM HAS CONVERGED FOR TIME STEP (M+1) 


GO TO 678 
Ez WRITE( 6,713) 
‘713 FORMAT(2X,_,**!) 
678 TIME=TIME+DTIME(M) 
IF(M.EQ211-OReMeEQ.21) GO TO 476 
GO TO 477 
476 WRITE(6,231) 
WRITE( 64230) 
WRITE(63230) 
477 WRITE(6,208) TIME 
208 FORMAT(6X,E10-3) 
78 WRITE(6,224) (U(LoM+1),L=1,LL,3) e 
224 FORMAT( LOX F749 2X oF leh og 2X oF l eS eg 2X oF let gy 2X oF leo 4e2X 
* FT. 4s 2X9 
LET e 49 2X oF Tt oho 2X oF let 2X oF le4) 
99 CONT INUE 
MB=M 


CALCULATING FRACTION OF GAS PRODUCED USING AVERAGE 
FLUXES 


CP RIC 


DO 291 I=1,I1 
MK=MT(1) 
FLUXL=06 
FLUXLL=0-6 
DO 395 K=1,MK 
FAVG1=DABS(WX(1 9K) 4+WX(1yK+1))/2- 
FAVGLL=DABS(WX(LL 9K) +WX(LLyK+1))/26 
OUT=FAVG1*DTIME(K) 
IN=FAVGLL*DT IME (K) 
FLUX1=FLUX1+0UT 
FLUXLL=FLUXLL+IN 

395 CONTINUE 
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MAIN LINE eee (CONT'D) 
GP2(1)=ZI/ (PHIRI *(1.—-RW**2) )%* (RW*FLUX1-FLUXLL) 


GP2(1)=ZI*¥PHIO/ (PHIRI*(1.—-RW**2))*(RW*FLUXIL-FLUXLL) 
291 CONTINUE 

WRITE(64231) 

WRITE( 6,230) 


WRITE(6,8667) IPOR 


WRITE(6,230) 
B=B*PF 
WRITE(69205) ByBByPERM 
WRITE(6,210) 
210 FORMAT(1H0O,33X_y'FLUX DISTRIBUTION FOR THE FIRST 40 
* GRID POINTS*) 
WRITE(69230) 
TIME=0. 
DO 75 M=1 MB 
TIME=TIME+DTIME(M) 
ITF(MeEQe9eORMeEQ217) GO TO 494 
GO TO 445 
494 WRITE(6,231) 
WRITE(69230) 
WRITE( 6,230) 
445 WRITE(6,208) TIME 
WRITE(6,515) (WX(L»9M+1),L=1,40) 
515 FORMAT(16X,10D11.3) 
75 CONT INUE 
WRITE(6,9000 ) 
9000 FORMAT(1HO,30X,'FRACTION OF GAS. PRODUCED AT LAST FIVE 
* TERME LEVELS* 
i} 
WRITE(6,9003) (GP2(1),IT=1,11) 
9003 FORMAT(/,7Xs"FRACTION OF GAS PRODUCE D=',5(3X,E10.3)) 
IF(JKeEQ.NSETS) GO TO 613 
68 TO 999 
613 WRITE(6,231) 
STOP 
END 
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